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

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

Question

Луканя

26 июля, 19:22

+4

Ответы (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"