Нарисуй прямоугольник 5 клеточек на 4 клеточки и назови рисунок "прямоугольник"
Uses Crt;
const a=0;
b=10;
n=15;
var i: longint;
Rez: longint;
begin
ClrScr;
WriteLn ('Task 1:');
for i:=10 to 35 do
Writeln(i:3);
Delay (2000);
WriteLn ('Task 2:');
for i:=5 to n do
Writeln(i*i:5);
Delay (2000);
WriteLn ('Task 3:');
for i:=a to 50 do
begin
Rez:=i*i*i;
Writeln(Rez:7);
end;
Delay(2000);
WriteLn ('Task 4:');
for i:=a to b do
Writeln(i:3);
ReadLn;
end.
Компьютер - это универсальное программно управляемое устройство для обработки, хранения и передачи информации
N=2^i, где N - мощность алфавита (кол-во символов, котррые в нём используются), i - информационный вес символа в битах
256 = 2^8 => i =8 бит
I (это не l, а заглавная i) - информационный объем, находящийся по формуле:
I = K × i, где K - кол-во символов сообщения
I = 4096 × 8 = 32768 бит
Переведём в килобайты:
32768 : 8 = 4096 байт
4096 ÷ 1024 = 4 КБ
Ответ: 4 кб
<em>Ниже жирным шрифтом приведен код программы на Паскале. В фигурных скобках обычным шрифтом - комментарии. Можно их оставить - компилятор не сможет их прочитать и программа все равно будет работать.</em>
program printname;
var first_name, family_name : string;
i : byte;
begin
write('Введи свое имя: ');
readln(first_name);<em>{считываем имя в переменную first_name}</em>
write('Введи свою фамилию: ');
readln(family_name); {считываем фамилию в переменную family_name}
for i := 1 to 10 do writeln(family_name, ' ', first_name);<em>{В цикле for со счетчиком i изменяющимся от 1 до 10 печатаем строки с фамилией и именем через пробел}</em>
end.