Предмет: Информатика,
автор: левина432
Подсчитать сумму четных, не делящихся без остатка на 8 чисел от 5 до 75.По Паскалю.Пж очень надо,заранее благодарю:*
Ответы
Автор ответа:
0
var s,i:integer;
begin
for i:=5 to 75 do
if i mod 8 <> 0 then s+=i;
writeln(s);
end.
begin
for i:=5 to 75 do
if i mod 8 <> 0 then s+=i;
writeln(s);
end.
Автор ответа:
0
А можете объяснить?
Автор ответа:
0
благодарю)
Похожие вопросы
Предмет: Физика,
автор: maks67topcheg
Предмет: Другие предметы,
автор: Аноним
Предмет: Английский язык,
автор: 33dilya33
Предмет: Обществознание,
автор: Екатеринa