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

Question

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

lehasokol03 · Answer

PascalABC.NET // 1begin  var p: int64 := 1;  for var i := 2 to 20 do    p *= i;  Println(p)end.//2begin  var (k, d) := (0, 1);  while d 0 do  begin    Read(d);    if d 0 then      k += 1  end;  Println(k);end.// 3begin  var (s, d) := (0, 1);  while d 0 do  begin    Read(d);    if d.IsEven then         s += d  end;  Println(s);end....

Популярные вопросы