Tomilka777
30.07.2020 15:00

Найти сумму чисел кратных семи от 10 до 600

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
miraaa372
08.06.2020 10:22

program P1;
var
i,summ : integer;
begin

summ := 0;

for i := 10 to 600 do
if i mod 7 = 0 then
summ := summ + i;


writeln('Otvet: ',summ);


readln;
readln;
end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота