Задание1. используя цикл "while" вывести на экран числа 30,25,20
Задание2. найти сумму чисел "задание1"
Нет комментариев
Ответы
Гость Var A,S:integer;
Begin
A:=30;
S:=0;
While A >= 20 do
Begin
Write(A,' ');
S:=S+A;
A:=A-5;
End;
WriteLn;
WriteLn('S = ',S)
End.
Нет комментариев
Список предметов
