Опубликовано 03.01.2018 по предмету Информатика от Гость

Помогите решить задачу по Паскалю !!!очень срочно
Найти сумму всех четных трехзначных чисел, кратных 77

Ответ оставил Гость

Очень просто)
var s,i:integer;
Begin
s:=0;
for i:=100 to 999 do if (i mod 77 = 0) and (i mod 2 = 0) then s:=s+i;
writeln (Сумма: ,s);
end.

Не нашел нужный ответ?

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.


Найти другие ответы
Самые новые вопросы