программа №4program str999; uses crt; var s: string; begin writeln('введіте фразу'); read(s); if (s='край озер') then writeln ('край озер лесов и рек'); if (s='я учусь в школе') then writeln ('я учусь в 10-м классе') end. №5program p_1; uses crt; var s: string; begin writeln('введите фразу'); read(s); if (s='моя родина беларусь') then writeln ('беларусь моя родина'); if (s='люблю цябе мой родны кут') then writeln ('мой родны кут люблю цябе') end.
Ответ дал: Гость
2)program nah;
var s: string;
begin
s: = 'рэки,горы и '; (присвоение значения)
writeln (s); (вывод)
delete (s, 5,6); (удаление из строки s начиная с 5-го символа 6) символа)
Популярные вопросы