(Программа Паскаль )
var f : integer;
begin
readln (f);
if (f < 0) then writeln (-3)
else writeln (sqrt (f));
end.
Program n_10;
var a,b,c,x: integer; R:Boolean;
begin
WriteLn('Введите трехзначное число>>');
ReadLn(x);
a:=x div 1000;
b:= (x mod 1000) div 100;
c:=x mod 10;
R:= (a*b*c) mod 2 = 0;
WriteLn('Произведение цифр четно?',R)
end.
1) Общее кол-во пикселей: 1024 * 768 = 786432
2) Объем/Вес одной картинки: 786432 * 16 = 12582912 бит
3) Кол-во переданной информации за 1 секунду: 12582912 * 75 = 943718400 бит/с = 12582912 / 8 / 1024 / 1024 Мбайт/с = 112.5
Мбайт/с
По линии прямой связи передаются...
г)команды управления и информация об объекте управления