Используя цикл while вывести на экран числа 30,25,20 . найти сумму чисел

Question

Информатика: Используя цикл while вывести на экран числа 30,25,20 . найти сумму чисел

Марина3611 · Answer

Var A,S:integer;BeginA:=30;S:=0;While A = 20 do   Begin   Write(A, );   S:=S+A;   A:=A-5;   End;WriteLn;WriteLn( S = ,S)End....

Используя цикл "while" вывести на экран числа 30,25,20 . найти сумму чисел ""