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
i,n: integer;
a: array [1..100] of integer;
begin
readln(n);
for i: =1 to n do
begin
if i mod 2 =0 then a[i]: =i-3
else a[i]: =i+3;
writeln(a[i]);
end;
end.
Ответ дал: Гость
решение на
Ответ дал: Гость
по углам комнаты расставить 4 стула и около каждой стены по одному ( ещё 4 стула). всего 8 стульев : )
Популярные вопросы