PascalABC.NET.Помогите пожалуйста.Даны 2 числа a и b.Найти меньшее и определить делится...

Question

PascalABC.NET.Помогите пожалуйста.Даны 2 числа a и b.Найти меньшее и определить делится ли оно нацело на 5.

Answer 1

Var
a,b:integer;

begin
write('Введите число А ');
readln (a);
write('Введите число Б ');
readln (b);
if (a = b) then
writeln ('Числа равны')
else
if (a < b) then
begin
if ( a mod 5 = 0) then
writeln ('Число А меньше и делится на 5')
else
writeln('Число А меньше и не делится на 5');
end
else
begin
if ( b mod 5 = 0) then
writeln ('Число Б меньше и делится на 5')
else
writeln ('Число Б меньше и не делится на 5');
end;
end.

Comments

Спасибо большое ,люблю тебя .ты меня спас