Var
t,st:real;
i:integer;
begin
for i:=1 to 7 do begin
readln(t);
st:=st+t;
end;
writeln('Средняя температура за первую неделю сентября: ',st/7,' °C');
end.<span>
</span>
Ответ:
Получилось так, надеюсь хоть правильно!
Объяснение:
program Octavleniy; (Можешь свое)
var
sum: real;
a, n, i: integer;
begin
sum :=1;
n: :=3;
for a :=1 to 8 do
begin
for i := 1 to a - 1 do
n :-n*3;
sum := sum+l / n;
n :=3;
end;
Writeln(sum);
end.
Для перехода к слайду нужнo b) apply to all sides
Program n1;
var a,sum,i: integer;
begin
sum:=0;
for i:=1 to 47 do
begin
readln(a);
if (a>0) and (a mod 3=0) then sum:=sum+a;
end;
writeln(sum);
end.
Ответ:
программа Paint. Эта программа очень нужна была обществу, даже сейчас она остаётся незаменимой. На Paint можно рисовать, писать, составлять что либо и просто развлекаться.