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.
в 1993 вышел OC Windows 3.1.
Или что то другое надо?
Имя файла как правило состоит из двух частей, разделённых точкой:собственно имени файла и расширения.
Задание 1:
A.<span>Общеутвердительные
</span><span>Задание 2:
Братан,я вообще без понятия че тут ответить
Задание 3:
4.Принятие действий
Задание 4:
</span>понятие<span>, </span>суждение<span> и </span>умозаключение<span>.
</span><span>Задание 5:
я не знаю
Задание 6
</span><span>Геометрические фигуры
Задание 7
1.
3.
5.
6.
7.
8.
Задание 8
Начало и конец
задание 8(у тя повторное оно)
1.
4.
Задание 9
3.
</span><span>5.
7.
Задание 10
Я не знаю </span>
Это скрипт bash (командная оболочка UNIX).