Предмет: Информатика,
автор: mimiDi
Составье програму вычесления суммы всех трехзначных чисел ,кратных 17???
Ответы
Автор ответа:
0
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.
Интересные вопросы
Предмет: Физика,
автор: karinacehmejstruk94
Предмет: Литература,
автор: bondarevaalena2604
Предмет: Алгебра,
автор: SerTeun
Предмет: Математика,
автор: Почемучкааа
Предмет: Математика,
автор: Питерский