Программа которая будет складывать переменную а с числом 3. при этом пока сумма будет меньше чем 25 требуется увеличить переменную а на одну еденицу в каждом цикле

Question

Информатика

Ветанна

7 июня, 19:42

Программа которая будет складывать переменную а с числом 3. при этом пока сумма будет меньше чем 25 требуется увеличить переменную а на одну еденицу в каждом цикле

+1

Ответы (1)

Знаете ответ на вопрос?

Адас · Answer 1

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.