Напишите пожалуйста программу, по представленном блок-схеме
Напишите пожалуйста программу, по представленном блок-схеме
Гость
Ответ(ы) на вопрос:
Гостьvar
s, k, a, sr: integer;
begin
s := 0;
k := 100;
a := 12;
repeat
s := s + a;
k := k - 10;
a := a - 1;
until not(a > 1);
sr := s + k;
writeln(sr);
writeln(k);
end.
Не нашли ответ?
Похожие вопросы