//правильно вот так:
Program al;
var c: real;
begin
c:=4.75;
writeln('c=',c);
end.
1.жёсткий диск-<span>не является периферийным</span>
var
r, x, y :integer;
begin
randomize;
writeln('Введите координаты');
read(x);
read(y);
r := random(10)+1;
writeln('Радиус равен ', r);
if (x*x+y*y <= r*r) then
writeln('Точка принадлежит окружности')
else
writeln('Точка не принадлежит окружности');
end.
<span>v=28800 бит\с
i=log(2) 16=4 бит - информационный объем пикселя
I= 800*</span>600<span>* 4= 1920000 бит- информационный объем картинки
t=I/v= 190000/28800=67 c</span>
Var
a:integer;
begin
Read(a);
if (a < 18) then Writeln('Вы не совершеннолетний')
else Writeln('Вы совершеннолетний')
end.