Заданы числа a и b. определите, эти числа одного или разных знаков.

Var a,b : integer; begin writeln('a'); readln(a); writeln('b'); readln(b); while a> 0 do   begin    if b> 0 then     writeln ('a и б одного знака');   else    writeln ('a и б разного знака);   end; while a< 0 do   begin    if b< 0 then     writeln ('a и б одного знака');   else    writeln ('a и б разного знака); end; end.

обычно 1 символ = 1 байт = 8 бит, если другое не оговаривается в условии следовательно:

14400 * 10 : 8 = 18000 символа

336600 * 10 * 8 = 420750 символа

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