1.Напишите программу которая вычисляет произведение чисел от 1 до 20
оператор for
2.Напишите программу в которой осуществляется ввод целых чисел(ввод прекращается если введен 0) и подсчитывается количество введеных чисел
for или while оператор
3.Напишите программу в которой осуществляется ввод целых чисел(ввод прекращается если введен 0) и подсчитывается сумма введеных четных чисел
for или while

Ответ

Автор - BobbyFresnel

===== PascalABC.NET =====

// 1

begin

var p: int64 := 1;

for var i := 2 to 20 do

p *= i;

Println(p)

end.

//2

begin

var (k, d) := (0, 1);

while d <> 0 do

begin

Read(d);

if d <> 0 then

k += 1

end;

Println(k);

end.

// 3

begin

var (s, d) := (0, 1);

while d <> 0 do

begin

Read(d);

if d.IsEven then

s += d

end;

Println(s);

end.

Предыдущий вопрос Следующий вопрос

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.