Описать функцию sign(x) целого типа, возвращающую для вещественного числа x следующие значения: 6 — 1, если x < 0; 0, если x = 0; 1, если x > 0. с этой функции найти значение выражения sign(a) + sign(b) для данных вещественных чисел a и b.

Function sign(x: real): integer; begin if x< 0 then sign: =-1   else if x=0 then sign: =0   else sign: =1; end; var a,b: real; begin   writeln('a, b: ');   readln(a,b);   writeln('sign(a) + sign(b) = ',sign(a) + sign(b)); end. пример: a, b: -8 0sign(a) + sign(b) = -1

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

2гбайта=2000000байт

2000000байт/400байт=5000текстовых файлов