profile
Опубликовано 5 лет назад по предмету Информатика от EgoRGaboW

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

  1. Ответ
    Ответ дан HRAshton
    var ax, b: integer;
    begin
         readln(b);
         ax := b;
         writeln(ax);
    end.

    Если я правильно понял, то так)
    1. Ответ
      Ответ дан EgoRGaboW
      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.
    2. Ответ
      Ответ дан HRAshton
      А, вот оно что, понятно) Только если ввести a = 0, будет беда-беда, сделай проверку)
    3. Ответ
      Ответ дан EgoRGaboW
      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.
Самые новые вопросы