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

Задание2. найти сумму чисел "задание1"

Question

Лин

12 ноября, 17:49

+1

Ответы (1)

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

Евгеныч · Answer 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.

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