Задать вопрос
7 июня, 06:37

задано трёхзначное число составьте программу которая определяет равны ли в нём произведение первой и третьей цифры и сумма второй и первой цифры

+5
Ответы (1)
  1. 7 июня, 08:54
    0
    Паскаль

    program m1;

    uses crt;

    var a, b, c, d:integer;

    begin

    write ('Введите число: ') ; 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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «задано трёхзначное число составьте программу которая определяет равны ли в нём произведение первой и третьей цифры и сумма второй и первой ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы