Найдите сумму кратных 7 чисел , меньших 100
Ответ оставил Гость
Var s,i:integer;
begin
for i:=1 to 99 do
if i mod 7=0 then s:=s+i;
writeln(s);
end.
Не нашел нужный ответ?
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.
Найти другие ответы
Самые новые вопросы
Геометрия, опубликовано 04.09.2024
Физика, опубликовано 27.04.2024
Беларуская мова, опубликовано 18.12.2023
Русский язык, опубликовано 01.12.2023