Program srednee;
var
x, y: integer;
sredn: real;
begin
write('x = '); readln(x);
write(' y = ');readln(y);
sredn := (power(x, 3) + power(y, 3)) / 2;
writeln('Srednee arifmeticheskoe = ', sredn);
writeln('X otlichayetsya na ',abs(sredn-x));
writeln('Y otlichayetsya na ',abs(sredn-y));
end.
Var a,b:integer;
begin
read (a,b);
if a>b then write (' а большее') else write (' b большее');
end.
У нас очень интересные школьные дела. Мы выпускаем свою газету, куда любой ученик может написать заметку и нарисовать рисунок. Участвуем в школьных олимпиадах. А потом лучших награждают на линейке. В феврале у нас проходит Неделя Наук. На этой неделе проходит много конкурсов, открытых уроков и интересных соревнований.
Var i,s:integer;
a:array[1..10] of integer;
begin
for i:=1 to 10 do begin
a[i]:=random(100);write(a[i],' ');
if (a[i] mod 3=0) and (a[i]>50) then s:=s+1;
end;
writeln('S=',S);
end.