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.
1 - D
2- C
3 - B
4 - A
Если это письмо/файлы получены от неизвестного источника
1) 65
2) AB
3) 1000111.111
4) 740.6
5) F8.4
Type student=record
familia:string;
nomer:byte;
yspevaemosti:array[1..5] of integer;
end;
достать дневник - посмотреть задание - закрыть дневник - достать тетрадь - достать учебник - открыть тетрадь - взять ручку - написать дату- решить задание - закрыть тетрадь - закрыть учебник - убрать на место
Подробнее - на Znanija.com - znanija.com/task/17576623#readmore