Есть ответ 👍

Паскаль ! найти сумму натуральный от 2 до 56 , кратных 5?

181
495
Посмотреть ответы 3

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


Program five_sum; var c, sum : integer begin c : = 2; sum : = 0; while c < 56 do begin if c mod 5 = 0 then sum : = sum + c; c : = c + 1 end; writeln( sum ); end.

Var   a, b, c: integer; begin   c : = 56;   for a : = 2 to c do   begin    if a mod 5 = 0 then      b : = b + a;   end;   writeln(b); end.

Обмінюватися інформаціею.

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