Исправьте пожалуйста ошибку program mimi;
var n, p, s:integer;
begin
read(n);
count := 0;
write n > 0 do begin
n := n div10;
count := count +1
end;
n := abs(n);
end.
Задание:
Ввести натуральное число и найти сумму и произведение его цифр. Пример:Введите натуральное число:12345
Сумма цифр 15. Произведение цифр 120.
var n, p, s:integer;
begin
read(n);
count := 0;
write n > 0 do begin
n := n div10;
count := count +1
end;
n := abs(n);
end.
Задание:
Ввести натуральное число и найти сумму и произведение его цифр. Пример:Введите натуральное число:12345
Сумма цифр 15. Произведение цифр 120.
More Questions From This User See All