Регистрация
DILLERONLOLOLOSHKA
30.03.2021 05:46
Информатика
Есть ответ 👍

Напишите программу на языке pascal: посчитайте кол-во и сумму чисел, кратных 3 в диапазоне от -30 до 30.

263
470
Посмотреть ответы 2

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

Токаарічіна
Токаарічіна
4,7(9 оценок)
Var    i,sum,col: integer;   begin      for i: =-30 to 30 do      begin            if i mod 3 = 0              then                  begin                      inc(col);                       inc(sum,i);                   end;               end;     write(sum,' ',col);   end.
Kurgan4511
Kurgan4511
4,7(44 оценок)

1, потому что aраза начинаемая с "если" (if) всегда должна заканчиваться "то " (then)

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