Сообщение занимает 39 страниц по 27 строк. Значит, следует найти количество строк. 39×27=1053 строки. Нужно найти количество символов, т. е. количество байт в сообщении. В каждой строке по 35 символов: 1053×35=36855 байт в сообщении. Нужно перевести в Килобайты. В 1 Кб 1024 байт, значит 36855÷1024=35 Кб и 1015 байт в остатке. ответ: 36855 байт в сообщении, 35 Килобайт и 1015 байт в сообщении.
Без подробностей: 1) 39×27×35=36855 (символов)- байты в сообщении 2) 36855÷1024=35 (Кб)- Килобайт и 1015 байт в сбщ.
1)Program n_1; var x,y,z,c:integer; begin readln (x,y,z); c:=x; if c>y then c:=y; if c>z then c:=z; writeln (c); end. 2)Program n_2; var x,y,z:integer; q,w,e:boolean; begin readln (x,y,z); q:= (y>x) and (z>x); w:= (y<x) and (y<z); e:= (z<y) and (z<x); if e=True then writeln (z); if w=True then writeln (y); if q=True then writeln (x); end. 3)Program n_3; var x,y,z:integer; begin readln (x,y,z); if (x<y) and (x<z) then writeln (x); if (y<x) and (y<z) then writeln (y); if (z<y) and (z<x) then writeln (z); end.
ответ: 36855 байт в сообщении,
35 Килобайт и 1015 байт в сообщении.
Без подробностей:
1) 39×27×35=36855 (символов)- байты в сообщении
2) 36855÷1024=35 (Кб)- Килобайт и 1015 байт в сбщ.
var x,y,z,c:integer;
begin
readln (x,y,z);
c:=x;
if c>y then c:=y;
if c>z then c:=z;
writeln (c);
end.
2)Program n_2;
var x,y,z:integer; q,w,e:boolean;
begin
readln (x,y,z);
q:= (y>x) and (z>x);
w:= (y<x) and (y<z);
e:= (z<y) and (z<x);
if e=True then writeln (z);
if w=True then writeln (y);
if q=True then writeln (x);
end.
3)Program n_3;
var x,y,z:integer;
begin
readln (x,y,z);
if (x<y) and (x<z) then writeln (x);
if (y<x) and (y<z) then writeln (y);
if (z<y) and (z<x) then writeln (z);
end.