Регистрация
Milka0102
06.10.2022 03:33
Информатика
Есть ответ 👍

Написать на паскале программу для вычесления суммы четных чисел от 0 до 10 с выводом результата

274
458
Посмотреть ответы 2

Ответы на вопрос:

kristinakalash
kristinakalash
4,6(71 оценок)

var s, i: integer;

begin

  s: = 0;

  for i: = 0 to 10 do 

    if i mod 2 = 0 then s: = s + i; {если остаток от деления на 2 равен 0, то прибавляй i к сумме}

  write('сумма равна ', s);

end.

taisia20061
taisia20061
4,6(92 оценок)

var a,b,pro: int64; begin  pro: =1;   readln(a, b);   repeat      if((a mod 4) =0) then pro: =pro*a;       inc(a);   until(a> b);   writeln(pro);   readln; end.

Популярно: Информатика