3) Сделать программку, которая сопоставляет два числа и выводит извещение с информацией

3) Сделать программку, которая сопоставляет два числа и выводит известие с информацией о том какое число больше, и на сколько больше. Даю 99 Пиров

Задать свой вопрос
2 ответа

Более удобный, компактный и требующий меньше памяти код, чем у предшествующего ответа.


Объяснение:


1) вводятся два числа и забиваются в значения a и b соответственно.

2)при помощи команды else производится отбор. Если а больше b, то  идет запись, если нет, то идет иное else, где если a меньше b, то идет запись их. В окончательном случае, если не производится ни то, ни то, то просто выводится, что они одинаковы, т.к больше нет никаких вариантов.


Код:


Program school6;

var a,b:real;


begin

write ('Введите 1-ое число:');

readln(a);

write ('Введите 2-ое число:');

readln(b);


if agt;b then

   write ('Первое число больше второго на ', a-b)

 Else

   If alt;b then

       write ('2-ое число больше первого на ', b-a)

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

end.

Program comparison;

var

a,b,c:real;

begin

write ('Введите первое число:');

readln(a);

write ('Введите 2-ое число:');

readln(b);

if agt;b then

begin

c:=a-b;

write ('1-ое число больше второго на ', c);

end;

if alt;b then

begin

c:=b-a;

write ('Второе число больше первого на ', c);

end;

if a=b then

write ('Числа равны');

end.

, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт