
Напишите программу, которая вводит с клавиатуры два целых положительных числа и выводит на экран ,
верно ли ,что В паскале Оба введенных числа заканчиваются на цифру 3Ни одно из введенных чисел не заканчивается ни на 2,ни на 4

Ответы на вопрос

program raf105;
var a,b:integer;
begin
write('Введите два числа: ');
readln(a,b);
if ((a mod 10) = 3) and ((b mod 10) = 3)
then writeln('Оба заканчиваются на 3: Верно')
else writeln('Оба заканчиваются на 3: Неверно');
if ((a mod 10) = 2) or ((a mod 10) = 4) or ((b mod 10) = 2) or ((b mod 10) = 4)
then writeln('Ни одно не заканчивается на 2 или 4: Неверно')
else writeln('Ни одно не заканчивается на 2 или 4: Верно');
end.
Программа написана на языке PascalABC.NET



Вот пример программы на языке Python, которая выполняет указанные условия:
pythondef check_numbers():
num1 = int(input("Введите первое число: "))
num2 = int(input("Введите второе число: "))
if num1 % 10 == 3 and num2 % 10 == 3:
if num1 % 2 != 0 and num1 % 10 != 4 and num2 % 2 != 0 and num2 % 10 != 4:
print("Оба числа удовлетворяют условиям.")
else:
print("Одно из чисел заканчивается на 2 или 4.")
else:
print("Оба числа не заканчиваются на 3.")
check_numbers()
Программа запрашивает у пользователя два целых положительных числа и проверяет выполнение условий. Если оба числа заканчиваются на цифру 3 и ни одно из них не заканчивается на 2 или 4, выводится сообщение "Оба числа удовлетворяют условиям". Если хотя бы одно число заканчивается на 2 или 4, выводится сообщение "Одно из чисел заканчивается на 2 или 4". Если оба числа не заканчиваются на 3, выводится сообщение "Оба числа не заканчиваются на 3".


Топ вопросов за вчера в категории Информатика







Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili