Loschyubl
4 год назад
Дано целое четырехзначное число. Найти сумму его крайних цифр и произведение внутренних.
ОТВЕТЫ
Всеволод
Oct 24, 2020
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.
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.
408
Смежные вопросы:
