Дано целое четырехзначное число. Найти сумму его крайних цифр и произведение внутренних.
Дано целое четырехзначное число. Найти сумму его крайних цифр и произведение внутренних.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы