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

написать на паскале программу .определить что меньше а или б.

  1. Ответ
    Ответ дан HRAshton
    var a, b: real;
    begin
         readln(a, b);
         if (a > b) then writeln(a, ' > ', b);
         if (a = b) then writeln(a, ' = ', b);
         if (a < b) then writeln(a, ' < ', b);
    end.

    Так =)
    1. Ответ
      Ответ дан HRAshton
      Что?
    2. Ответ
      Ответ дан HRAshton
      Program и uses не обязательно, а readln в конце уже устарел, как и program
    3. Ответ
      Ответ дан HRAshton
      Так что всё ок
    4. Ответ
      Ответ дан Schoolcool
      может быть
  2. Ответ
    Ответ дан Schoolcool
    program 123;
    uses crt;
    var
    a,b: integer;
    begin
    clrscr;
    writeln(' enter a,b');
    readln(a,b);
    if (a<=b) then min:=a
    if (b<=a) then min:=b
    writeln('min=',a,'min=',b);
    readln;end.
Самые новые вопросы