Question

написать программу: к числу а прибавить b
пока а не станет равным 260.
(программа Паскаль)

Answer 1

var a,b:integer;

begin

read (a,b);

writeln;

while a<>260 do begin

if a<260 then a:=a+b

else begin write('Невозможно'); break end; end;

if a=260 then writeln('Сделано');

end.