Var a,b:real:
begin
read(a);
b:=a*0.91;
writeln();
write(&a,'m=',&b,'yards');
end.
Вот :
var y,x:integer;
begin
writeln('Введите x');
read(x);
y:=x*x;
writeln;
write('Значение функции равно: ');
write(y);
end.
<span>- Общее имя и один тип.</span>
Для простоты, сначала рассчитаем объем файла в битах.
512000*16 = 8192000 - бит.
Далее, в одном байте - 8 бит.
А в одном килобайте - 1024 байт.
Следовательно, в одном килобайте - 8*1024 = 8192 бит.
Значит, объем файла:
8192000/8192 = 1000 килобайт.