Var A:integer;
Begin
WriteLn('Введи число');
ReadLn(A);
if (A>9)and(A<100) then Write('Да')
else WriteLn('Нет')
End.
Var
A:integer;
Begin
WriteLn('Введи число');
ReadLn(A);
if A>9 then Begin
if A<100 then WriteLn('Да')
else WriteLn('Нет')
End
else WriteLn('Нет')
End.
var a:array[1..10] of integer;
i,k,s:integer;
begin
s:=0;
k:=0;
for i:=1 to 10 do
readln(a[i]);
for i:=1 to 10 do
if a[i]>0 then begin
s:=s+a[i];
k:=k+1;
end;
writeln(s/k);
end.
Необходимо отсчитать 5 раз по 3 минуты = 15 минут, одновременно переворачивать 2 раза по 8 минут. когда 15 минут пройдут, в больших часах остается 1 минута, она заканчивается и переворачиваете часы с 3 минутами 2 раза и того получится 1+3+3=7 минут. задача решена