Var a:integer;
begin
writeln('Введите число ');
readln (a);
if (a div 10 = a mod 10) and (a>9) then
writeln ('число симметричное ')
else
writeln('число не симметричное');
end.
1 символ это 1 байт. За 1 мин он прочитывает 160 байт информации.
За 0,5 мин = 30 сек он прочтет 80 байт.
80 бит = 10 байт он прочтет за
30/8 = 15/4 = 3 3/4 сек = 3,75 сек.
1)Один символ занимает 5 бит
2)450*5 = 2250 бит = 281,25 байт
<span>program lab1;
const
pi=3.14;
c=4/3;
var
r:integer;
V:real;
begin
writeln('введите r');
readln(r);
V:=c*pi*sqr(r)*r;
writeln('обьем');
write(V);
read;
end.</span>