//Программа в файле внизу
//Пример выполнения программы
Привет ! Если Вы хотите ознакомиться с моими возможностями : введите "Команды". На данный момент, выводимый мной текст может показываться не совсем коректно, но надеюсь, что в скором времени это исправиться.
Команды
Вот , что я могу на данный момент. 1) Привет. 2)Как тебя зовут? 3) Кто тебя создал? 4) Сколько тебе лет? 5)Можешь ли ты чувствовать? 6)Ты хочешь захватить мир? 7) Какого ты пола? 8)Пока
Какого ты пола?
Как не странно, но меня задумывали как девушку 18 лет, с маленьким размером груди. Почему мне дали имя "Григорий" - тайна покрытая мраком. Ну или мой создатель странный человек.
...
Я не знаю
8)
Всего доброго. Надеюсь Вы ещё вернётесь. Мой создатель ещё работает над моими возможностями и в скором времени добавит мне несколько фраз или даже что-то ещё ^√^
Программа завершена, нажмите любую клавишу . . .
Можно ещё использовать оператор выбора case
Program pr;
uses crt;
Var k:integer;
Begin
Writeln('Введите k');
readln(k);
if (k>=1) and (k<=5) then
Begin
case k of
1: Writeln('Плохо');
2: Writeln('Неудовлетворительно');
3: Writeln('удовлетворительно');
4: Writeln('Хорошо');
5: Writeln('Отлично');
end;
end
else Writeln('Ошибка');
readln;
end.
Магнитные диски - Дискеты, а оптические диски - все остальные носители информации, перечисленные в вопросе.
Кавалерия — конница, смелый — храбрый, идти — шагать
Sqrt((5*x)+(sqr(x)))
tg((3*x)+1)
(3*3)+(2*2)+4
