Укажите, сколько раз выполнится тело цикла с заданным заголовком:
FOR i := 5 DOWNTO 1 DO

var i: integer;

s,z: real;

begin

    z: =8;

    for i: = 2 to 7 do begin

          s: =s+z;

          z: = z*(1+10/100);

    end;

    writeln(s);

end.

сетевые устройства

сетевое по

линии связи

var a,b,c: real;

begin

  read(a,b,c);

  if (a> b) and (b> c) then begin

      a: =a*2;

      b: =b*2;

      c: =c*2;

  end

  else begin

      a: =-a;

      b: =-b;

      c: =-c;

  end;

  writeln(a,b,c);

end.

если паскаль, то вот :

program altzie;

var h: real;

begin

repeat write('введите h ');

readln(a); if a< =0then writeln('ошибка! значение h не может быть нулевым или отрицательным. повторите ввод.');

until h> 0;

writeln('площадь боковой поверхности куба = ', (6*h*h));

readln; end.