Ха-ха-ха)) Белорусский учебник по информатике за 10 класс)))
Там все просто...
Программа №4
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.
x + y > z
x + z > y
y + z > x
Программа:
var x, y, z: real;
begin
writeln('Введите стороны треугольника x, y, z: ');
read(x, y, z);
if (x + y > z) and (x + z > y) and (y + z > x)
then writeln('Треугольник существует')
else writeln('Треугольник не существует');
end.
2. Думаю, здесь излишни объяснения.
Программа:
var x, y, z: real;
begin
writeln('Введите три числа: ');
read(x, y, z);
writeln('В интервале (1; 3) лежат числа: ');
if (x > 1) and (x < 3) then writeln(x);
if (y > 1) and (y < 3) then writeln(y);
if (z > 1) and (z < 3) then writeln(z);
end.
Блок-схемы в приложении: