Задача 1.
Найти среднее арифметическое всех целых чисел от а до 200
(значения а и b вводятся с клавиатуры; а<= 200)
Задача 2.
Найти сумму квадратов всех целых чисел от а до b(значения
a и b вводятся с клавиатуры; b>=a).

Question

Информатика: Задача 1. Найти среднее арифметическое всех целых чисел от а до 200 (значения а и b вводятся с клавиатуры; а = 200) Задача 2. Найти сумму квадратов всех целых чисел от а до b(значения a и b вводятся с клавиатуры; b =a).​

eio32120kopqicom · Accepted Answer

1)
var
a,i:integer;
s:real;
begin
readln(a);
for i:=1 to 5 do
s:=s+a;
writeln(s:4:0);
end.
2)
var
a,n,i:integer;
s:real;
begin
readln(a,n);
for i:= 1 to n do
s:=s+a;
writeln(s:4:0);
end.
3)
var
n,i:integer;
a,s:real;
begin
readln(a,n);
for i:= 1 to n do
s:=s+a;
writeln(s:4:2);
end.
4)
const
a='ИНФОРМАТИКА';
var
i,n:integer;
begin
readln(n);
for i:=1 to n do
write(a,' ');
end.
5)
vari,n,a:integer;
p:real;
begin
readln(a,n);
p:=1;
for i:=1 to n do
p:=p*a;
writeln(p);
end.

MOGZ ответил