program str999; uses crt; var s: string; begin writeln('введіте фразу'); read(s); if (s='край озер') then writeln ('край озер лесов и рек'); if (s='я учусь в школе') then writeln ('я учусь в 10-м классе') end.
потхоньку буду дополнять, не так все быстро))
№5
program р_1; uses crt; var s: string; begin writeln('введите фразу'); read(s); if (s='моя родина беларусь') then writeln ('беларусь моя родина'); if (s='люблю цябе мой родны кут') then writeln ('мой родны кут люблю цябе') end.
Ответ дал: Гость
random это функция возвращающая случайные числа от 1 до указанного диапазона, но отрицательных чисел тут нет, так что воспользуемся приемом:
a: = random(101)-50; {числа от -50 до 50}
b: = random(101)-200; {от -100 до 100}
а теперь выведи на экран все положительные, а затем отрицательные элементы - проверяй на больше/меньше нуля!
Популярные вопросы