PascalABС Дано двухзначное число. Рассчитать произведение его цифр. Задачу решить через процедуру.
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Сложите числа в двоичной системе счисления 1011+1001
Автор: Нозадзе_Новиков392
Класс окна форм: свойства, методы, события.
Автор: kisuhakisa
информатикаочень надо от этого зависит всё
Автор: Mbkozlov6
-цикл с эпилогом -цикл с параметром -циклический цикл -цикл с неизвестной величиной
Автор: Лифанов_Ольга
Чему равно число записей в базе данных «Студенты»?
Автор: Andrei
3 4 5 6 7 8 9 10 11 program Integer7; var A, Res: Integer; begin Write('Введите двузначное число: '); Readln(A); Res:=(A div 10) + (A mod 10); Writeln('Сумма его цифр равна: ',Res); Res:=(A div 10) * (A mod 10); Writeln('Произведение его цифр равно: ',Res); end.