Question

Нужно нарисовать цикловую блок-схему для решения этой задачи на Паскале :найти сумму всех трёхзначных чисел ,которые когда делим на 3 остаётся 1 остаток ,а когда делим на 4 остаётся 2 остатка .

Answer 1

Ответ:

pascal

Объяснение:

var i, s: integer;

begin

 for i := 100 to 999 do

   if (i mod 3 = 1) and (i mod 4 = 2) then s := s + i;

 WriteLn('Сумма равна ', s);

end.