PascalABC.NET.Помогите пожалуйста.Даны 2 числа a и b.Найти меньшее и определить делится ли оно нацело на 5.
Ответы
Ответ дал:
0
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.
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.
Ответ дал:
0
Спасибо большое ,люблю тебя .ты меня спас
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад