Регистрация
ievghienii1
18.05.2020 22:01
Информатика
Есть ответ 👍

Составить паскаль программу для произведения цифр заданного четырёх знасного числа.

145
443
Посмотреть ответы 2

Ответы на вопрос:

Алинаfox11
Алинаfox11
4,5(70 оценок)
Var pr, num: integer; begin writeln('введите число: '); readln(num); pr : = 1;   while num > 0 do begin pr : = pr * (num mod 10); num : = num div 10; end; writeln('произведение чисел = ', pr); readlnend.
olaseve2007ls
olaseve2007ls
4,4(54 оценок)

3)111011002.Дано системе

Популярно: Информатика