Question

Помогите с простой задачкой на паскаль
ax=b
Только решите понятно, а не замудренными решениями из института, задачка с 10 класса

Answer 1

var ax, b: integer;
begin
     readln(b);
     ax := b;
     writeln(ax);
end.

Если я правильно понял, то так)

Answer 2

Uses crt;
Var x,a, b:real;
begin
readln(b);
readln(a);
x:=b/a;
writeln(x);
if b=0 then a:=0;
if a=0 then b:=0
end.

Answer 3

А, вот оно что, понятно) Только если ввести a = 0, будет беда-беда, сделай проверку)

Answer 4

Var a,x,b:real;
Begin
write('a,b: ');readln(a,b);
x:=b/a;
if (a=0)and(b<>0) then writeln('Решений нету')
else if (a=0)and(b=0) then writeln('Бесконечно много решений')
else writeln(x:0:2);
End.