Оператор вывода write (2,12,27,100)

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

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 раза.

1)

Program p1;

Var a,b,c,z: real;

Begin

Write('Введите 1 число ');

readln(a);

Write('Введите 2 число ');

readln(b);

z:=frac(a);

c:=frac(b);

if (a > 99) and (z = 0)  then Writeln(a);

if (b > 99) and (c = 0)  then Writeln(b);

End.

*функция frac() берет от вещественного числа дробную часть

2)

Program p1;

Var a, i, n, k: integer;

Begin

Write('Введите количество чисел последовательности: ');

readln(n);

k:=1;

For i:=1 to n do begin

readln (a);

if (a mod 3 =0) then k:=k*a*a;

end;

Writeln('Произведение квадратов чисел, кратных трём - ',k);

End.