1)
var a,b,c:real;
begin
write('Введите три стороны треугольника: ');
readln(a,b,c);
if((a < b+c) and (b < a+c) and (c < a+b)) then write('Периметр треугольника: ',(a+b+c):9:3)
else write('Треугольник с данным сторонами не существует');
end.
2)
var a,b:real;
begin
write('Введите два числа: ');
readln(a,b);
writeln('Сумма данных чисел: ',(a+b):9:3);
write('Произведение данных чисел: ',(a*b):9:3);
end.
Var
x, y: Integer;
begin
write('x=');
readln(x);
if x > 0
then y := x + 5
else
y := 8 - 5 * x;
writeln('y=', y);
end.
1)2Кбайта =2048байт, если один символ весит 1бит, то в тексте 2048*8=16348 символов (ЕСЛИ 1 СИМВОЛ ВЕСИТ 1 БАЙТ, ТО 2048 СИМВОЛОВ)
2)64*16=1024 знаков всего на одной странице, 440*1024=450560 байт памяти на компьютере, итого: 450560:1024=440 страниц
3)последнее я не знаю, как решать:((
1 символ = 1 байт, посчитай сколько букв в твоей фамилии, имени и отчестве. Сколько букв столько и байт. Например: имя "Матвей" состоит из 6 букв, значит 6 байт.
1 байт = 8 бит, поэтому те байты которые у тебя получились ранее умножь на 8. Например: имя "Матвей" составляет 6 байт, умножаем на 8 = 48 бит.
64 символа умножаем на 36 строк умножаем на 600 страниц = 1382400 символов.
скорость измеряется в килобайтах, переводим байты в килобайты (1 кб = 1024 байт): 1382400 делим на 1024 = 1350 килобайт. Скорость 64 кб / сек.
1350 делим на 64 = 21,09375 секунд. Можно округлить: 21 секунду.
Ответ:
Должно быть так 0000111000101100000111010000111
00010111000011001000011100010111
00010110100001110001011110010111
10001010000001110001011000010101
00000111000101110001011100000111
00010111000101101000011100010111
10010111100001110001011100001111
0000011100010111000011011