Информатика, опубликовано 2018-08-22 22:58:10 by Гость

Решите пожалуйста задачу по информатике , по теме "див и мод"Дано четырёхзначное число х.Найти произведение.Очень срочно надо ! ! ! ПОЖАЛУЙСТААА ! ! !

Ответ оставил Гость

Program pr;
uses crt;

Var x, x1, x2, x3, x4, p:integer;

Begin
readln(x);

x1:=x div 1000;
x2:=(x div 100) mod 10;
x3:=(x mod 100) div 10;
x4:=x mod 10;

p:=x1*x2*x3*x4;

Writeln(p);

readln;
end.

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.