Три задачи с условием IF + решение этих задач. Очень надеюсь на Вашу помощь! - №2018620

Три задачи с условием IF + решение этих задач.

Очень надеюсь на Вашу помощь!
- Предмет:
  Информатика
- Автор:
  doggon’mwgj
- 5 лет назад

Ответы 1

Ну например 1) Какое из двух введённых чисел больше

2) Являются ли 2 числа взаимно обратными

3) Ну и сложная задача Нахождение Наименьшего общего кратного 2ух чисел.

Program N1;

Uses Crt;

var a,b:real;

begin

clrscr;

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

readln(a);

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

readln(b);

if (a=b) then writeln('Числа равны ');

if (a>b) then writeln ('Число а больше ')

else writeln ('Число b больше ');

readkey;

end.

Program N2;

Uses Crt;

var a,b:real;

begin

clrscr;

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

readln(a);

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

readln(b);

if (a+b)=0 then writeln('Числа взаимно обратны !')

else writeln('Числа не являются взаимно обратными !');

readkey;

end.

Program N3;Uses Crt;var n,m,res,nok:integer;function evklid( a, b: longint): longint; begin while (a <> 0) and (b <> 0) do if a >= b then a:= a mod b else b:= b mod a; evklid:= a + b; end;begin clrscr; writeln('Введите A и B'); readln(M, N); res:= (Evklid(n,m)); nok:= (m*n) div res; writeln('NOK=',nok);readkey;end.
- Автор:
  simonynfb
- 5 лет назад
- 0
Добавить свой ответ

Еще вопросы

How much to ban the user?

1 hour 1 day 100 years