Написать программу вычисления значения функции y=1/x. мы знаем, что на ноль делить нельзя, поэтому в программе, если x=0, будем присваивать y значение 0

Program funtion ;
var y,x:real;
begin
writeln ('введите х');
readln(x)
if (x=o)
then y:=0
else y:=1/x;
writeln('y=',y)
end.

Var
x,y:real;
begin
write('Введите значение x=');read(x);
if x=0 then begin
y:=0;
writeln('Y=',y);
end;
if x<>0 then begin
writeln('Y=',1/x);
end;
end.

6(х)*3(х)=22(х)

6(х)=6*x^0=6*1=6(10)
3(х)=3*x^0=3*1=3(10)

6(10)*3(10)=18(10)
22(x)=2*x^1+2*x^0=2x+2(10)
приравняем правые части друг к другу и решим простое уравнение
2x+2=18
2x=16
x=8

ответ: в 8-ричной системе счисления


Можно решить и другим (более простым

   6
* 3

 22

цифра 2 в первом разряде (единиц) говорит о том, что 18 (произведение 6*3) делится на основание этой системы счисления с остатком 2
цифра 2 во втором разряде говорит о том, что 18 при делении на основание системы счисления дает 2 целых

Итого 18/x=2 целых и 2 в остатке
отнимем остаток: 18-2=16
16/х=2
х=8

ответ: в 8-ричной системе счисления

var s,k: integer;
// описали переменные, которые будут использованы в программе: s и k целые числа
begin
s:= 500;
// переменной s присвоили начальное значение 500
for k:= 4 to 10 do
// организовали цикл для k от 4 до 10 с шагом 1. То есть нижеследующий оператор цикла будет выполняться 7 раз (для k=4, k=5, k=6, ... k=10)
s:= s - 2*k;
// для каждого k поочередно считаем s:
// k=4   --   s=500-2*4=492
// k=5   --   s=492-2*5=482
// k=6   --   s=482-2*6=470
// k=7   --   s=470-2*7=456
// k=8   --   s=456-2*8=440
// k=9   --   s=440-2*9=422
// k=10 --   s=422-2*10=402
write (s);
// выводим на экран итоговое значение s: 402
end.