Question

пж помогите я-то нуб в етом ,срочно до часу ночи , заранее спасибо

Answer 1

program zadacha_4;
var a,b,c,d:integer;
begin
writeln('введите число');
readln(a);
for b:=1 to a do begin
c:=sqr(b);
if b mod 2 = 0 then d:=d+c;
end;
writeln(d);
end.

program zadacha_5;
var a,b,c,e:integer;
    d:real;
begin
c:=0;
d:=0;
writeln('введите число');
readln(a);
writeln('введите число');
readln(b);
for a:=a to b do begin
if a mod 2 <> 0 then e:=sqr(a);i
f a mod 2 <> 0 then c:=c+1;
if a mod 2 <> 0 then d:=d+e;
end;
d:=d/c;
writeln('среднее арифметическое ',d);
end.