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.
Ответ дал: Гость
если есть д ш и в то это не куб а параллелипипед
var
a,b,c,r: real;
begin
readln(a,b,c,r);
if (2*r< a) and (2*r< b) and (2*r< c)
then writeln('поместится')
else writeln ('не поместится');
end.
для куба достаточно одного условия (2*r< a)
Другие вопросы по: Информатика
Похожие вопросы
Знаешь правильный ответ?
Настольные пк, ноутбуки , персональные цифровые и портативные компьютеры - это ...
Популярные вопросы