Составьте программу, которая находит произведение цифр заданного четырехзначного числа
Vara,s,d,f:integer;BeginWriteln(четырехзначное число,s);a:=0;a:=(s div100)*(s mod 10 )*(s div 10 mod 10)*(s div 100 mod 10);Writeln (s);End.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
