Смотрите решение ниже. Не забудьте перевести биты в байты.
1.
program _1;
var a,b,s:real;
begin
writeln('Вычисление площади прямоугольника.');
writeln('Введите исходные данные:');
write('Длина(см): '); readln(a);
write('Ширина(см): '); readln(b);
s:=a*b;
writeln('Площадь прямоугольника: ',s:5:2 ,' кв.ед.');
end.
2.
program _2;
var a,b,c,v:real;
begin
writeln('Вычисление объема параллелепипеда.');
writeln('Введите исходные данные:');
write('Длина(см): '); readln(a);
write('Ширина(см): '); readln(b);
write('Высота(см): '); readln(c);
v:=a*b*c;
writeln('Объем: ',v:5:2 ,' куб.см.');
<span>end.
</span>
3.
program _3;
var a,b,c,s:real;
begin
writeln('Вычисление объема площади параллелепипеда.');
writeln('Введите исходные данные:');
write('Длина(см): '); readln(a);
write('Ширина(см): '); readln(b);
write('Высота(см): '); readln(c);
s:=2*(a*b+a*c+b*c);
writeln('Объем: ',s:5:2 ,' кв.см.');
end.
4.
program _4;
var a,v:real;
begin
writeln('Вычисление объема куба.');
writeln('Введите исходные данные:');
write('Введите длину ребра (см): '); readln(a);
v:=a*a*a;
writeln('Объем куба: ',v:5:2 ,' куб.см.');
end.
5.
program _5;
var a,b,k1,k2,s:real;
begin
writeln('Вычисление стоимости покупки.');
writeln('Введите исходные данные:');
write('Цена тетради(руб): '); readln(a);
write('Кол-во тетрадей: '); readln(k1);
write('Цена карандаша(руб): '); readln(b);
write('Кол-во карандашей: '); readln(k2);
s:= a*k1+b*k2;
writeln('Стоимость покупки: ',s:5:2 ,' руб.');
<span>end.
</span>
6.
program _6;
var a,b,k,s:real;
begin
writeln('Вычисление стоимости покупки.');
writeln('Введите исходные данные:');
write('Цена тетради(руб): '); readln(a);
write('Цена обложки(руб): '); readln(b);
write('Кол-во комплектов: '); readln(k);
s:= k*(a+b);
writeln('Стоимость покупки: ',s:5:2 ,' руб.');
<span>end.</span>
Uses crt;
var a,h:longint;
b:integer;
begin
clrscr;
writeln ('Введи число');
readln (a);
h:=1;
while a>0 do
begin
b:=a mod 10;
h:=h*100+b;
a:=a div 10;
end;
a:=0;
while h>10 do
begin
b:=h mod 10;
a:=a*10+b;
h:=h div 10;
end;
writeln (a);
readln;
end.
1. Переведите в байты:560 бит = 560:8 = 70 байтов
<span>3024 бита = 3024:8 =378 байтов
</span>
2. Переведите в биты:540 байтов = 540*8 = 4320 бит
2,5 Кб = 2,5*1024*8= 2560*8 = 20480 бит
2 Гб = 2*1024*1024*1024*8 = 171798184 бита
3. Переведите в килобайты:1024000 бит = (1024000:8):1024 = 125 Кб
9240 байтов = 9240:1024 ≈ 9,02 Кб
4. Заполните пропуски числами:а) 3, 5 Кбайт = 3584 байт = 28672 бит
б) 3, 5 Гбайт = 3584 Мбайт = 3670016 Кбайт
Задача 1 Ответ: 312 бит
Задача 2Ответ: 7,3 Кбайт
Задача 3Ответ: 547
Задача 4Ответ: 32768