Дано целое четырехзначное число. Найти сумму его крайних цифр и произведение внутренних.

Question

Информатика

Розина

14 декабря, 03:42

Дано целое четырехзначное число. Найти сумму его крайних цифр и произведение внутренних.

+3

Ответы (1)

Знаете ответ?

Михай · Answer 1

Var A:integer;

Begin

WriteLn ('Введите четырёхзначное число') ;

ReadLn (A) ;

WriteLn ('S = ', (A div 1000) + (A mod 10)) ;

WriteLn ('P = ', ((A div 100) mod 10) * ((A div 10) mod 10)) ;

End.