Вы можете скопировать на свои диски ненужную для вас информацию со школьного компьютера
Есть опасность заражения компьютера вирусом
От частого использования разъемов компьютера они могут испортиться
Нельзя в компьютер вставлять большое количество носителей информации
var r:real;
begin
write ('Введите радиус окружности: ');
read(r);
writeln ('Диаметр равен: ', r*2:0:3);
writeln ('Длина окружности равна: ', 2*pi*r:0:3);
end.
var
a: integer;
begin
readln(a);
if (4 * a > 9) and (4 * a < 100) then writeln('периметр двузначное число')
else writeln('периметр не двузначное число');
end.
Var a:array[1..10] of longint;
n,i,b:integer;
f:boolean;
Begin
readln(n);
for i:=1 to n do read(a[i]);
writeln;
repeat
f:=true;
for i:=2 to n do
if a[i-1]>a[i] then Begin
b:=a[i-1];
a[i-1]:=a[i];
a[i]:=b;
f:=false;
end;
until f;
for i:=1 to n do write(a[i]:5);
end.
1. Водонагреватель. Служит для подогрева проходящей через него воды.
Входы: электропитание, холодная вода.
Выходы: горячая вода.
2. Телевизор. Устройство для демонстрации изображения со звуковым сопровождением.
Входы: электропитание, сигналы от внешних устройств, управление от пульта.
<span>Выходы: звук изображение, сигналы на внешние устройства.</span>