паскаль
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.
Поделитесь своими знаниями, ответьте на вопрос:
Вдиапазоне ячеек f12: c7 электронной таблицы содержится: а) 24 ячейки б) 32 ячейки в) 12 ячеек г) 14 ячеек