Поля для ввода, иконки в средах программирования, кнопки и т.д
В них вводится текст. А также с помощью диалоговых окон можно осуществлять общение юзера и системы.
Var
x, y: real;
begin
readln(x);
if x <= 0 then y := 0
else y := x;
writeln(y:3:0);
end.
1) 30*70*5=1050 байт объем всего текста
2) 4*30*70=8400 бит; 3150*8=25200 бит; 25200/8400=3 бита - вес одного символа. Зная формулу найдем 2^3=8 Значит мощность алфавита равна 8
Var
a: array[1..10] of integer;
i, j, temp: integer;
begin
randomize;
for i := 1 to 10 do
begin
a[i] := random(100,999);
write(a[i]:3);
end;
writeln;
for i := 1 to 10 - 1 do
for j := i + 1 to 10 do
if a[i] > a[j] then
begin
temp := a[i];
a[i] := a[j];
a[j] := temp;
end;
for i := 1 to 10 do
write(a[i]:3);
end.