Предмет: Информатика,
автор: Zajchenya
ПАСКАЛЬ:
Знайдіть всі числа з інтервалу 100-200 кратні 25.
Знайдіть їх суму та кількість.
ЛЮДИИ... ПОМОГИТЕ!!!
Ответы
Автор ответа:
0
program 12332586;
var i,s:integer;
begin S:=0;
for i:=100 to 200 do
if (i mod 25=0) then
S:=S+i;
writeln(s);
end.
var i,s:integer;
begin S:=0;
for i:=100 to 200 do
if (i mod 25=0) then
S:=S+i;
writeln(s);
end.
Автор ответа:
0
Спасибочки!
Интересные вопросы
Предмет: Қазақ тiлi,
автор: zigermukaza
Предмет: Английский язык,
автор: Аноним
Предмет: Химия,
автор: sergeevnakarina912
Предмет: Математика,
автор: zaika2212
Предмет: Физика,
автор: qizt1711