//Pascal
var a, b:integer;
begin
readln(a,b);
if a>0 then writeln(a*b);
if (a<0) and (b<>0) then writeln(a/b)
else if (a<0) and (b=0) then writeln('Делить на 0 нехорошо!');
end.
Program n1;
var x, a, S: real; i: integer;
begin
readln(x);
S:=0;
for i:=0 to 21 do
begin
a:=(i/10)*x;
S:=a+S;
end;
writeln(S);
end.
Если формула не отобразится, как надо, она повторена во вложении
Program n1;
var a,b: real;
begin
readln(a,b);
write('x=',-b/a);
end.
Ответ:
1122
Объяснение:
1) Рассмотрим число - 23. На 3 он не делится без остатка, значит прибавляем к 23 число 2.
23 + 2 = 25.
2) Далее, число 25 не делится на 3 без остатка, значит снова прибавляем 2
25 + 2 = 27
3) Число 27 делится без остатка на 3, значит делим 27 на 3
27 / 3 =9
4) Число 9 делится на 3, значит
9 / 3 = 3.
Получили исходное число.
Итого, чтобы получить из числа 3 число 23 надо выполнить алгоритм
1122