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.
Ответ дал: Гость
описание - это собственно его разработка, написание кода, составление формул и т.п.
обращение - это просто сказать - а ну ка выполнись с такими то параметрами, и оно там выполняется, а мы может и знать не знаем чего оно там конкретно делает.
Ответ дал: Гость
попробуйте так (turbo pascal):
program 1;
var s: string;
c: integer;
begin
write('vvedite nazvaniye zhivotnogo');
read(s);
writeln('vvedite kolichestvo syedennyh gribov');
readln(c);
writeln(s, ' ', 'syest', ' ', c, ' ', 'gribov');
end.
Ответ дал: Гость
файл в паскале должен иметь расширение конечно же а)
Популярные вопросы