Вопрос по информатике:
PascalABC.NET.Помогите пожалуйста.Даны 2 числа a и b.Найти меньшее и определить делится ли оно нацело на 5.
Пожаловаться
- 16.12.2015 13:42
- Информатика
- remove_red_eye 4345
- thumb_up 34
Ответы и объяснения 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.
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.
Пожаловаться
- 17.12.2015 10:04
- thumb_up 32
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы