Program gt;
var a,b,c,s:real;
begin
read(a,b,c);
if(abs(a)>1)or(abs(b)>1)or(abs(c)>1) then s:=(a+b+c)/3 else s:=a*b*c;
writeln(s);
end.
1 обычный
2 полужирный
3 курсивный
4 подчёркнутый
5 полужирный и курсивный
6 полужирный и подчёркнутый
7 подчёркнутый и курсивный
8 полужирный и подчёркнутый и курсивный
1.
var
i,n:integer;
begin
read(n);
for i:=1 to n do
write(i,', ');
end.
2.
var
i,n:integer;
begin
n:=9;
for i:=1 to n do
writeln(i,'*',n,'=',n*i);
readln(i);
end.
Сверху вниз в такой последовательности2,1,3,5,4,6
Var
i,s:integer;
a:array[1..15] of integer;
begin
randomize;
for i:=1 to 15 do
begin a[i]:=random(21);
write(a[i],' ');
if a[i]<=10 then s:=s+a[i]
end;
writeln('Сумма ',s)
<span>end.</span>