Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Умоляю решите до часа ночи , буду благодарен ,я чайник в етом

Ответ оставил Гость

Program zadacha_1;
var a,b,c:integer;
begin
writeln(введите число);
readln(a);
for b:=1 to a do begin
c:=sqr(b);
writeln(c);
end;
end.

program zadacha_2;
var a,b,c:integer;
begin
c:=1;
writeln(введите первое число);
readln(a);
writeln(введите второе число);
readln(b);
for a:=a to b do begin
c:=c*a;
end;
writeln(произведение чисел от ,a, до ,b, ==> ,c);
end.

program zadacha_3;
var a,b,c:integer;
    d:real;
begin
c:=0;
writeln(введите число);
readln(a);
for b:=10 to a do begin
c:=c+1;
d:=d+b;
end;
d:=d/c;
writeln(среднее арифметическое ,d);
end.