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

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

program Integer11;
var
  A, Res: Integer;
begin
  Write('Введите трёхзначное число: ');
  Readln(A);
  Res:=(A mod 10) + ((A mod 100) div 10 )+ (A div 100);
  //*
  Writeln('Сумма цифр равна: ',Res);
  Res:=(A mod 10) * ((A mod 100) div 10) * (A div 100);
  Writeln('Произведение цифр равно: ',Res);
end.

program Integer11;

var

A, Res: Integer;

begin

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

Readln(A);

Res:=(A mod 10) + ((A mod 100) div 10 )+ (A div 100);

//*

Writeln('Сумма цифр равна: ',Res);

Res:=(A mod 10) * ((A mod 100) div 10) * (A div 100);

Writeln('Произведение цифр равно: ',Res);

end.

* (A mod 10) — Получаем единицы
(A div 100) — Получаем кол-во сотен
(A mod 100) div 10 — Получаем десятки

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

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

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

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