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

Question

Информатика

Егорий

3 марта, 10:00

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

+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.