Предмет: Информатика,
автор: sral
Знайти суму килькисть та середне арифметичне всих натуральних чисел вид 30 до 100 що кратни 3 та закинчуються на 2,4 або 8 паскаль
Ответы
Автор ответа:
1
var
n, s, i: integer;
begin
for i:=30 to 100 do
if (i mod 3 =0) and ((i mod 10 = 2) or (i mod 10 = 4) or (i mod 10 = 8)) then
begin
n:=n+1; s:=s+i;
end;
writeln(s/n);
end.
n, s, i: integer;
begin
for i:=30 to 100 do
if (i mod 3 =0) and ((i mod 10 = 2) or (i mod 10 = 4) or (i mod 10 = 8)) then
begin
n:=n+1; s:=s+i;
end;
writeln(s/n);
end.
Похожие вопросы
Предмет: Физика,
автор: kazmirchukov
Предмет: Українська мова,
автор: vasylfurdychka
Предмет: Химия,
автор: stepandushkin135
Предмет: Физика,
автор: iuliazhuravleva8377