за 3 задания 1) Дана последовательность операторов :а:=1;b:=1;repeata:= a+1;b=b*3until b<a;СКОЛЬКО РАЗ БУДЕТ ПОВТОРЯТСЯ ЦИКЛ2) В Результате выполнения фрагмента программы: s:=0n:=0whlle n<5 dobegins:=s+2n:=n+1endwriteln ('s=', s) Переменная s принимает значение3) Определите, какое количество раз выполнится оператор цикла. for X:= 10 to 12 doY = X*X​

Представим, что мы считаем сами так, как компьютер:

1) а:=1; b:=1;

  выполняем программу: а:=а+1, т.е. а = 1+1 = 2; b:=1*3 =3 - это 1-й раз;

  проверяем условие b<a, т.е. 3 <2 - ложно, значит, больше данная последовательность операторов выполняться не будет.

ответ: 1 раз.

2) s:=0 ; n:=0;

   проверяем условие n<5, т.е. 0<5 - верно, значит теперь s:=s+2 =0+2=2, n:=n+1=0+1=1 - 1-й раз;

   проверяем условие n<5, т.е. 1<5 - верно, значит теперь s:=s+2 =2+2=4, n:=n+1=1+1=2 - 2-й раз;

   проверяем условие n<5, т.е. 2<5 - верно, значит теперь s:=s+2 =4+2=6, n:=n+1=2+1=3 - 3-й раз;

   проверяем условие n<5, т.е. 3<5 - верно, значит теперь s:=s+2 =6+2=8, n:=n+1=3+1=4 - 4-й раз;

   проверяем условие n<5, т.е. 4<5 - верно, значит теперь s:=s+2 =8+2=10, n:=n+1=4+1=5 - 5-й раз;

    проверяем условие n<5, т.е. 5<5 - ложно, значит выполнения фрагмента программы больше не будет.

ответ: 5 раз.

3) оператор цикла будет выполнен для х=10, х=11 и х=12, т.е. 3 раза.

ответ: 3 раза.

Площадь параллелограмма:

program chet;

var

sq, a , b : integer;

begin

writeln('Введите стороны параллелограмма ');

readln(a,b);

sq := a * b;

writeln('Площадь параллелограмма равна ', sq);

end.

Площадь трапеции:

program chet;

var

sq,h, a , b : real;

begin

writeln('Введите длину оснований ');

readln(a,b);

writeln('Введите высоту трапеции');

read(h);

sq := (a+b)/2 * h;

writeln('Площадь трапеции равна ', sq);

end.

Площадь круга:

program chet;

const

PI = 3.14;

var

sq,r : real;

begin

writeln('Введите радиус круга');

readln(r);

sq := PI * sqr(r);

writeln('Площадь круга равна ', sq);

end.

И площадь ромба:

program chetdsa;

var  

sq,d,g : real;

begin

writeln('Введите чему равны диагонали ромба');

readln(d,g);

sq := (d*g)/ 2;

writeln('Площадь ромба равна ', sq);

end.

В минуте 60 секунд. 
1) Разделить число на 3600.Получим .целое число означает текущий час.
Если  из задонного числа вычесть  получившееся целое число умноженное на 3600 получим число секунд в текущих  минутах.
2)это число необходимо разделить на 60. Целое число будет означать текущую минуту.
3) вычитаем из оставшегося числа число минут умноженное на 60 получим текущую секунду.

Например
Задано число 66276.

часов.
    18 * 3600 = 64800
    66276 - 64800 = 1476
минуты.
     24 * 60 = 1440
     1476 -1440 = 36

ответ: 18 часов , 24 минуты, 36 секунд.