// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var a,b:real;
Write('Введите два числа через пробел: ');
Read(a,b);
if a*b>0 then Writeln('Числа одного знака')
else Writeln('Числа разных знаков')
end.
Состав и структуру мотопехотного батальона армии ФРГ (образца 1970 года) по следующему описанию.
Объём сообщения = 114688 битов (14*1024*8)
114688/28672 = 4 бита тратится на 1 символ
По формуле мощности алфавита 2⁴= 16
Ответ: 16 символов - мощность алфавита
Program n1;
Var x,y,z,a: real;
Begin
Writeln ('vvedite x,y,z');
Read (x,y,z);
a:=5*((2*x-z)/(3+y*y));
Writeln ('otvet: ', a:5:3);
End.