program foo;
uses Crt;
var
a, s: real;
begin
ClrScr;
write('Сторона квадрата: ');
read(a);
s := Sqr(a);
Writeln('Его площадь: ', s:0:2);
ReadKey;
end.
№4.1
38*64*15=36480
№4.2
в самом сообщении нужно посчитать кол-во всех букв, пробелов, знаков препинания , у меня получилось 41
№4.3
В данной задаче применим формулу Шеннона
Вероятность того,что вытащили красный карандаш= 1/32
х=㏒2(1:(1:32))= 5
Ответ :5
№4.4
1,44*2/3= 0,96 МБ
1КБ=1024 байта
1МБ=1024 КБ
0,96 МБ= 0,96*1024*1024=1006632,96 байт
№4.5
пуст точка-0
тире-1
я не знаю азбуку Морзе...
var
a,b,c:integer;
begin
randomize;
a:=random(8);
c:=0;
repeat
writeln('Введи число: ');
if a<>b then
c:=c+1;
readln(b);
if b>a then
writeln('Загаданное число меньше ! ');
if b<a then
writeln('Загаданное число больше ! ');
if b=a then
writeln('Победа!');
until a=b;
writeln(c);
readln;
<span>end.</span>
Ответ:
1875 Кбайт
Объяснение:
Объем видеопамяти = 2*16*800*600 бит = 4*800*600 байт = 1875 Кбайт