Помогите с простой задачкой на паскаль
ax=b
Только решите понятно, а не замудренными решениями из института, задачка с 10 класса
Ответ
0
var ax, b: integer;
begin
readln(b);
ax := b;
writeln(ax);
end.
Если я правильно понял, то так)
begin
readln(b);
ax := b;
writeln(ax);
end.
Если я правильно понял, то так)
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.
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.