Глазкова633
?>

PascalABС Дано двухзначное число. Рассчитать произведение его цифр. Задачу решить через процедуру.

Информатика

Ответы

karpachevamarina

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.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

PascalABС Дано двухзначное число. Рассчитать произведение его цифр. Задачу решить через процедуру.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

ostapbender1111
knyazev527
priexali
ooost-2022
VadimovichSvetlana622
Tarakanova_pavel
innavinogradova1385
eremenkou
metelkin7338
Глазкова633
nat63nesnova5
VadimovnaIgor
cipfarm484
Yurevna419
kartyshkinaaa