Найти произведение цифр заданного целого четырехзначного числа. var x ,y, z, w, num, p: integer; begin writeln ('Введите число '); read (num); w:=num div 1000; z:=(num div 100) mod 10; y:=(num div 10) mod 10; x:=num mod 10; p:=x*y*z*w; writeln ('p = ', p) end.
Логотип SimpleЦДЗ

Похожие

Задание

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

  • var x ,y, z, w, num, p: integer;
  • begin
  • writeln \('Введите число '\);
  • read \(num\);
  • w:=num div 1000;
  • z:=\(num div 100\) mod 10;
  • y:=\(num div 10\) mod 10;
  • x:=num mod 10;
  • p:=x*y*z*w;
  • writeln \('p = ', p\)
  • end.

Тот же тест