Регистрация
help1010100101020349
22.01.2020 04:07
Информатика
Есть ответ 👍

Пользователь вводит 2 числа, проверяется какое число больше. большее число выводится столько раз, сколько значение меньшего.
!

219
233
Посмотреть ответы 2

Ответы на вопрос:

vikafemur
vikafemur
4,8(44 оценок)

ответ:

program test;

var

  a, b, imin, imax, i: integer;

begin

  write ('введите 2 числа: ');

  readln (a, b);

  if a > b then begin

    imin : = b;

    imax : = a;

  end else if a < = b then begin

    imin : = a;

    imax : = b;

  end;

  if imin < > imax then begin

    for i : = 1 to imin do

      write (imax, ' ');

  end else

    writeln ('числа равны');

  readln;

end.

Mamaluska
Mamaluska
4,5(84 оценок)
Var a: integer; begin     readln(a);       if (a mod 10+a div  10> 10) and(a mod 10+ a div 10< 100) then             writeln('двузначное')       else writeln('не двузначное'); if a mod 10+a div 10> a then     writeln('больше') else writeln('не больше'); end.

Популярно: Информатика