В Паскале.Найти произведение всех цифр заданного четырехзначного числа.

Ответы:

Игорь Савченко

28-05-2014 01:26

Varn,ed,des,sot,tis:integer;S:real;BeginReadln(n);ed:=n mod 10;des:=n div 10 mod 10;sot:=n div 100 mod 10;tis:=n div 1000 mod 10;S:=ed*des*sot*tis;Writeln(s);end.

Также наши пользователи интересуются:

Картинка с текстом вопроса от пользователя DARINA PEREDRIY

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «В Паскале.Найти произведение всех цифр заданного четырехзначного числа.» от пользователя DARINA PEREDRIY в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!