program Digits;
procedure foo(a: integer);
begin
if a = 0 then exit
else
foo(a div 10);
Print(a mod 10)
end;
var
a: integer;
begin
a := 12345;
foo(a)
end.
Цикл for будет повторяться 6 раз, значит программа на выходе выдаст 72
4) Словесный
5) ПЛ, И2, ПЛ, И2
6) Разветвляющийся
Если правильный ответ - звучит одна музыка, не правильный - другая музыка.
Удачи!
Ответ:
Объяснение:
var
N,K,S:integer;
begin
writeln('Введите число N>1');
readln(N);
K:=1;S:=0;
while S<N do
begin
S:=S+K;
K:=K+1;
end;
Writeln('K=',K-1,' Сумма: ',S);
end.