Отметьте все формулы, которые НЕ изменятся при копировании из ячейки C6 в ячейку D6

программа №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. 

ха-ха-ха)) учебник по информатике за 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. 

var a: integer;

begin

writeln ('vvedite nomer mesuaca');

read (a);

if (a=1) then writeln ('30');

if (a=2) then writeln ('28');

if (a=3) then writeln ('30');  

  if (a=4) then writeln ('31');  

  if (a=5) then writeln ('30');  

  if (a=6) then writeln ('31');  

  if (a=7) then writeln ('30');  

  if (a=8) then writeln ('31');  

  if (a=9) then writeln ('30');  

  if (a=10) then writeln ('31');  

  if (a=11) then writeln ('30');  

  if (a=12) then writeln ('31');  

end. 

var

a: integer;

begin

readln(n);

writeln('сумма цифр числа ',a,' равна', a div 100+(a mod 100) div 10 +a mod 10);

end.

var

a: integer;

begin

readln(n);

writeln((a mod 10)*100+((a mod 100) div 10)*10 +a div 100);

end.