Вопрос по информатике:
Написать программы, которые определяют:
- правда ли, что последняя цифра введенного числа кратна первой;
- правда ли, что сумма первой и последней цифр кратна 2;
- правда ли, что третья справа цифра равна 5 или 0;
- правда ли, что само число отрицательное;
Отработайте программы на Паскале с помощью компьютера
- 26.01.2016 21:50
- Информатика
- remove_red_eye 19554
- thumb_up 8
Ответы и объяснения 1
1) На паскале: если число целое, то
var a : integer;
Label Transfer;
begin
readln(a);
Last := a mod 10;
N := 999
for counter = 1 To N Do
if ((a div 10)0)
begin
First := a div 10;
Goto Transfer;
else
a := a div 10;
Transfer:
if (Last mod First = 0) then written('True')
else written('False');
readln();
end.
Если что-то не понятно - в лс или в комменты сюда
- 28.01.2016 00:55
- thumb_up 47
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.