1. Перевод из килобайтов в биты (1 кБ = 1024 * 8 бит = 8192 бита):
173,25 кБ = 173,25 * 8192 бита<span> = 1419264 бита
</span>
2. Перевод из байтов в биты (в одном байте 8 бит):
16,75 Б = <span>16,75 * 8 бит = 134 бита
</span>
3. Перевод из гигабайтов в терабайты (1 ТБ = 1024 ГБ):
6363 ГБ = 6363 / 1024 ТБ = 6,2138671875 ТБ
4. Перевод из гигабайтов в мегабайты (1 ГБ = 1024 МБ):
<span>27,5 ГБ = 27,5 * 1024 МБ = 28160 МБ
5. В этой фразе 41 символ. Значит, объём для её хранения равен:
41 * 16 бит = 656 бит = 656 / 8 Б = 82 Б
</span>
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b):=ReadReal2('Введите два числа через пробел:');
var (s1,p1):=ReadReal2('Введите через пробел из сумму и произведение:');
var (s2,p2):=(a+b,a*b);
if s1=s2 then Writeln('Сумма верна')
else Writeln('Сумма не верна, ',s2);
if p1=p2 then Writeln('Произведение верно')
else Writeln('Произведение не верно, ',p2)
end.
<u>Пример</u>
Введите два числа через пробел: 1.4 -2.5
Введите через пробел из сумму и произведение: -1.1 -3.25
Сумма верна
Произведение не верно, -3.5
Для этого используй тип string,то есть строка
program znanija;
var n:string;
k:string;
s:string;
begin
write('Введите название фильма : ');
readln(n);
writeln('Введите название кинотеатра : ');
readln(k);
writeln('Введите время : ');
readln(s);
writeln('Билет на ', n , ' в ', k , ' на ', s , ' забронирован. ');
end.
Введите название фильма : Лига Справедливости
Введите название кинотеатра : Луксор
Введите время : 21:40
Билет на Лига Справедливости в Луксор на 21:40 забронирован.
Var
i,s:integer;
begin
i:=1; s:=0;
while i<=99 do
begin s:=s+i; i:=i+2 end;
Writeln(s)
end.
Тестовое решение:
2500
Делаю первый раз, возможно будет не так как надо
использовать Чертежник
алг равнобердтрео
нач
сместиться в точку(2,1)
опустить перо
сместиться в точку(6,1)
сместиться в точку(4,6)
сместиться в точку(2,1)
кон
