Ответ:
Паскаль
Program krug;
var r,d:real;
Begin
writeln ('Введите радиус круга ');
readln(r);
d:=2*r;
write ('Диаметр круга равен ', d);
End.
Объяснение:
Дано: I = 1,5 Кб, К = 3072 символа. Найти: N — ? Решение. I= 1,5 Кб = 1,5 • 1024 • 8 = 12 288 бит. I I = I/K = 12288/3072 = 4 бита N=2i = 24 =16 символов
Место подключения к компьютеру внешних устройств, либо канал доступа извне называется Порт
Var
x1, y1, x2, y2: integer;
begin
readln(x1, y1, x2, y2);
if abs(x2 - x1) + abs(y2 - y1) = 3 then
writeln('11')
else
writeln('00');
end.