Fin208
05.10.2022 12:20

Составье програму вычесления суммы всех трехзначных чисел ,кратных

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Gklunnyy123
23.05.2020 20:45

var I,s:integer;

begin

writeln('Summa ');

for i:=100 to 999 do

if i mod 17 =0 then s:=s+i else s:=s+0;

writeln(s)

end.

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