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

1

Ответы и объяснения

2013-10-20T14:29:22+00:00
Var ax, b: integer;
begin
     readln(b);
     ax := b;
     writeln(ax);
end.

Если я правильно понял, то так)
AX = b)
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.
А, вот оно что, понятно) Только если ввести a = 0, будет беда-беда, сделай проверку)
я сделал робит все,
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.