дам 50балов если правильно
Цикл.Карточка №25.4
1.Вывести на экран все числа от 50 до 57.
2.Найти среднее арифметическое квадратов целых чисел от 6 до 14.
3.Вычислите сумму квадратов N четных натуральных чисел.
Цикл.Карточка №25.4
1.Вывести на экран все числа от 50 до 57.
2.Найти среднее арифметическое квадратов целых чисел от 6 до 14.
3.Вычислите сумму квадратов N четных натуральных чисел.
Answers & Comments
1.
program raf105;
var
i: integer;
begin
for i:=50 to 57 do
writeln(i,' ');
end.
2.
program raf105;
var
i,c,sum: integer;
sari: real;
begin
for i:=6 to 14 do
begin
sum:= sum+i*i;
c:= c+1;
end;
sari:= sum/c;
writeln('Среднее арифметическое: ',sari);
end.
3.
program raf105;
var
i,n,sum: integer;
begin
write('n = ');
readln(n);
for i:=1 to n do
if i mod 2 = 0
then sum:= sum+i*i;
writeln('Сумма квадратов чётных чисел: ',sum);
end.
PascalABC 3.4.2