Решаем задачи Абрамян на Паскале. Integer 7

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

Решение:

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.

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.

Другие задачи из раздела Integer можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Integer 7

Комментарии:

Добавить комментарий Отменить ответ