задано трёхзначное число составьте программу которая определяет ...
задано трёхзначное число составьте программу которая определяет равны ли в нём произведение первой и третьей цифры и сумма второй и первой цифры
Есть ответ
18.12.2022
453
Ответ
Паскаль
program m1;uses crt;var a,b,c,d:integer;beginwrite('Введите число: '); readln(a); {Задаем число}b:=a mod 10; {В переменную b заносится значение последней цифры в числе}a:=a div 10; {Сокращаем переменную до 2 чисел}c:=a mod 10; {В переменную c заносится значение последней(второй) цифры в числе}a:=a div 10; {Сокращаем переменную до 2 чисел}d:=a mod 10; {В переменную d заносится значение первой цифры в числе}if (d*b = d + c) then writeln('Произведение 1 и 3 цифры и сумма 2 и 1 цифр равны!')else writeln('Произведение 2 и 3 цифры и сумма 1 и 1 цифры не равны!');end.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
18.12.2022