Программа которая будет складывать переменную а с числом 3. при этом пока сумма будет меньше чем 25 требуется увеличить переменную а на одну еденицу в каждом цикле
Program p1; uses crt; var a,k:integer; begin k:=0; a:=0; while k<25 do begin k:=a+3; a:=a+1; writeln('Сумма ',k,' число ',a); {Можешь это убрать, если не нужно} end; write(k); end.
uses crt;
var a,k:integer;
begin
k:=0;
a:=0;
while k<25 do begin
k:=a+3;
a:=a+1;
writeln('Сумма ',k,' число ',a); {Можешь это убрать, если не нужно}
end;
write(k);
end.