Тема: линейные алгоритмы. решить две , . 1. даны 2 числа х и y. найдите среднее арифметическое кубов этих числе. 2. дана длина ребра куба. найти площадь грани, площадь поверхности и объем куба.

2) пусть a-длина ребра куба тогда площадь грани равна а^2 (a   в квадрате) площадь полной поверхности равна 6*a^2   ( у куба 6 граней) объем равен a^3 (длина*ширину*высоту параллелепипеда, все  стороны одинаковые) 1) среднее арифметическое двух чисел равно их полусумме то есть = (x^3+y^3)/2

Var   x: real; begin   x: =0;   while x< =2.0001 do begin       writeln('x=',x: 5: 2,'    y=',sqr(x)+1: 0: 4);       x: =x+0.25   end end. результат выполнения программы: x= 0.00    y=1.0000 x= 0.25    y=1.0625 x= 0.50    y=1.2500 x= 0.75    y=1.5625 x= 1.00    y=2.0000 x= 1.25    y=2.5625 x= 1.50    y=3.2500 x= 1.75    y=4.0625 x= 2.00    y=5.0000

//pascalabc.net

1)

var

  num, sum: integer;

begin

  sum : = 0;

  repeat

    read(num);

    if (num mod 4 = 0) and (num div 1000 = 0) and (num div 100 < > 0) then

      sum : = sum + num;

  until (num = 0);

  write(sum);

end.

2)

var

  num, max, n, i: integer;

begin

  max : = 0;

  read(n);

  for i : = 1 to n do

  begin

    read(num);

    if (num mod 10 = 3) and (num > max) then

      max : = num;

  end;

  write(max);

end.