37 x 50 = 1850 - 1 страница;
1850 x 120 = 222000 символов всего в книге;
Каждый символ имеет = 8 бит или 1 байт;
222000 x 8 = 1776000 бит или 222000 байт;
222000 байт ≈ 216,8 Кб;
216,8 Кб ≈ 0,2 Мб.
Объем документа составит 0,2 Мб, а размер дискеты - 1,44 Мб.
<em>Ответ: Документ поместиться, еще останется 1,24 Мб.</em>
PROGRAM TREUG;
var a,b,c: integer;
begin
writeln ('Сторона 1=');
readln (a);
writeln ('Сторона 2=');
readln (b);
writeln ('Сторона 3=');
readln (c);
if ((a^2=b^2+c^2)or(b^2=a^2+c^2)or(c^2=a^2+b^2)) then
writeln ('треугольник прямоугольный');
else writeln ('треугольник не прямоугольный');
end.
Помоему так...
const n=10;
var a:array[1..n] of integer; i,k:integer;
begin
writeln('Исходный массив: ');
for i:=1 to n do begin
a[i]:=random(10);
write(' ',a[i]);
end;
writeln;
for i:=1 to n do begin
if ((i mod 2) = 0) then
a[i]:=a[i]*2
else
a[i]:=a[i]*3;
end;
writeln('Конечный массив: ');
for i:=1 to n do
write(' ',a[i]);
<span>end.</span>
1. d
2.d
P.s Пишу эти буквы для того чтобы пропустили ответ надо же 20 символов)