Предмет: Информатика,
автор: letmelugdb
1. Найти среднее арифметическое двузначных чисел кратных 7
2. Найти среднее арифметическое первых 10 чисел делящихся на 5
(в паскале)
Ответы
Автор ответа:
0
//1
var
average:real;
i,cnt:integer;
Begin
For i:= 10 to 99 do
if (i mod 7 = 0) then
begin
average := average + i;
inc(cnt);
end;
average:=average / cnt;
Writeln(average);
end.
//2
var
average:real;
i,cnt:integer;
Begin
i:= 0;cnt:= 0;
while (true) do begin
inc(i);
if (i mod 5 = 0) then
inc(cnt);
average:=average + i;
if (cnt = 10) then
break
end;
average := average / 10;
Writeln(average);
end.
var
average:real;
i,cnt:integer;
Begin
For i:= 10 to 99 do
if (i mod 7 = 0) then
begin
average := average + i;
inc(cnt);
end;
average:=average / cnt;
Writeln(average);
end.
//2
var
average:real;
i,cnt:integer;
Begin
i:= 0;cnt:= 0;
while (true) do begin
inc(i);
if (i mod 5 = 0) then
inc(cnt);
average:=average + i;
if (cnt = 10) then
break
end;
average := average / 10;
Writeln(average);
end.
Похожие вопросы
Предмет: Химия,
автор: pgormilka
Предмет: Українська мова,
автор: 3H0
Предмет: Геометрия,
автор: malenovsemen7
Предмет: Алгебра,
автор: swagdianaaa