Локальная сеть - это компьютерная сеть, покрывающая обычно относительно небольшую территорию или небольшую группу зданий (дом, офис, фирму, институт)
1 задача:
var n:integer;
x:real;
begin
writeln ('Введите число X'); readln(x);
writeln ('Введите максимальную степень числа X'); readln(n);
for n:=1 to n do
begin
writeln ('x= ',exp(ln(x)*n));
end;
<span>end.
----------------------
2 задача:
const x=2;
var n:integer;
begin
writeln ('Введите максимальную степень числа 2'); readln(n);
for n:=1 to n do
begin
writeln ('x= ',exp(ln(x)*n));
end;
<span>end.
--------------------
Просто интересно, почему кто-то выполняет такие задания ЛЕТОМ?о_О</span></span>
Предназначен для исполнения<span>может иметь бесконечное число шагов.
</span>
С помощью трех битов можно закодировать 7 значений
а это значит что в коробке может быть до 7 шаров
Var
a, b, c: real;
begin
write('Стороны треугольника: ');
read(a, b, c);
write('Площадь треугольника: ', sqrt((((a + b + c) / 2)) * (((a + b + c) / 2)-a) * (((a + b + c) / 2)-b)*(((a + b + c) / 2)-c)));
end.
var
num: integer;
begin
write('Введите двузначное число: ');
read(num);
write('Произведение чисел данного числа: ', (num MOD 10) * (((num MOD 100)-(num MOD 10)) / 10));
end.