1. var
i:integer;
begin
for i:=1 to 10 do
begin
writeln (i, sqr(i));
readln;
end.
2. var
i:integer;
begin
for i:=2 to 20 do
begin
if sqr(i) div 2 = 0 then
write (i, ' = 'sqr(i) );
end;
readln;
end.
resque_of.stl 32 бит
drowning.bmp 5 байт (40 бит)
is_a_deal.jpeg 300 бит
of.doc 0.5 Кбайт
his.xls 1 Мбайт
hands.stl 2048 Кбайт (2 Мбайт)
Самое большое расстояние между D и B 32 - если ехать через A
а самое короткое расстояние между ними 16, если ехать из D через E и C
40 строк *60 символов = 2400 символов на одной странице
8 бит = 1 байт
16 Гб= 16* 1024 Мб= 16*1024*1024 кб=16*1024*1024*1024 байт = 17179869184 байта
17179869184 / 2400 = 715878,8 страниц
715878,8 /100 =71583 см
Кажется, так.
Подробнее - на Znanija.com -
znanija.com/task/8906879#readmore
Program N1;
var
a:integer;
begin
readln(a);
If (a>0) then writeln(a+1)
else writeln(a);
<span>end. </span>