Написать программы, которые определяют: - правда ли, что последняя цифра введенного числа кратна первой; - правда ли, что сумма первой и последней цифр кратна 2; - правда ли, что третья справа цифра равна 5 или 0; - правда ли, что само число отрицательное; отработайте программы на паскале с компьютера
211
238
Ответы на вопрос:
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) < 10) and ((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. если что-то не понятно - в лс или в комменты сюда
Популярно: Информатика
-
ПсихическиБольной09.09.2021 15:47
-
antoncezame14.01.2020 19:10
-
miran310.06.2023 00:44
-
student13019.12.2021 07:41
-
flak20206.09.2020 18:38
-
ВикторияНяшка12321.11.2021 14:13
-
Ксюша9900916.12.2021 01:34
-
rotsib23.06.2023 21:09
-
lara720826.04.2021 17:38
-
Alexexey13213.06.2021 16:38