Пожаловаться
- 02.10.2017 21:23
- Информатика
- remove_red_eye 18558
- thumb_up 12
Ответы и объяснения 1
Program n1;
var a,d1,d2,d3,d4: integer;
begin
write('введите 4-х значное число: ');
readln(a);
d1:=a div 1000;
d4:= a mod 10;
d3:=round(((a mod 100)-d4)/10);
d2:=round( (a mod 1000 -(a mod 100)-d4)/100);
writeln('произведение: ',d1*d2*d3);
end.
var a,d1,d2,d3,d4: integer;
begin
write('введите 4-х значное число: ');
readln(a);
d1:=a div 1000;
d4:= a mod 10;
d3:=round(((a mod 100)-d4)/10);
d2:=round( (a mod 1000 -(a mod 100)-d4)/100);
writeln('произведение: ',d1*d2*d3);
end.
Пожаловаться
- 03.10.2017 10:02
- thumb_up 38
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы