Игорь981
05.08.2022 20:19

Cклавиатуры вводится трехзначное число подсчитать произведение цифр десятков и единиц pascalabc

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
2930
07.10.2020 09:55
//PascalABC.NET
//Версия 3.3. сборка 1583 (25.11.2017)

var
a:integer;
begin
  read(a);
  writeln('Произведение десятков: ',(a mod 10)*(a div 10 mod 10)*(a div 100)*1000);
  writeln('Произведение единиц: ',(a mod 10)*(a div 10 mod 10)*(a div 100));
 readln;
 readln;
end.

Пример:

123
Произведение десятков: 6000
Произведение единиц: 6
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота