Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
abcpascal
5 / 5 / 6
Регистрация: 26.11.2011
Сообщений: 51
#1

Запись без цикла

09.12.2011, 19:28. Просмотров 316. Ответов 1
Метки нет (Все метки)

Ввести трехзначное число. Вывести произведение его цифр.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
 uses crt;
var
        a,b,c:integer;
begin
   readln(a);
repeat
         b:=a mod 10;
         a:= a div 10;
         c:=c+b;
   until a=0;
   writeln('сумма цифр = ',c)
end.
подскажите пожалуйста. Как записать эту программу без цикла "repeat"?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.12.2011, 19:28
Ответы с готовыми решениями:

Как протабулировать функцию без оператора цикла
Как это сделать без использования оператора цикла program Tabulyazia1; var x,a,b,h,f,c,d: real;...

Сортировка без цикла
Задача состроит в том, чтобы на одном языке (в данном случае, на с++) написать код, который будет...

Остановка цикла без break
For i:=1 to N-1 do begin If a>a then k1:=false; end; Выполняю проверку массива на...

Ошибка: Нельзя изменять значение переменной цикла внутри этого цикла
при запуске в строке If i=k Then i:=i+1; выдает ошибку "Нельзя изменять значение переменной цикла...

Ошибка: Нельзя изменять значение переменной цикла внутри этого цикла
при запуске в цикле while в строке x:=x div 10; выдает ошибку "Нельзя изменять значение переменной...

1
Igor
4617 / 3376 / 353
Регистрация: 11.11.2010
Сообщений: 6,183
Записей в блоге: 2
09.12.2011, 20:49 #2
Pascal
1
2
3
4
5
6
7
8
9
10
uses crt;
var n,a,b,c:integer;
begin
write('N = ');
read(n);
a:=n mod 10;
b:=(n div 10) mod 10;
c:=n div 100;
write(a*b*c);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.12.2011, 20:49

Параметр цикла for в PascalABC.NET должен описываться в заголовке цикла
program Khamkov8; const Z=5; M=6; var f,f1:text; c:array of integer; n:array of integer; ...

Program1.pas(39) : Параметр цикла for в PascalABC.NET должен описываться в заголовке цикла
Program1.pas(39) : Параметр цикла for в PascalABC.NET должен описываться в заголовке цикла. () :...

Вывод результата в теле цикла и за пределами цикла???
Вывод результата в теле цикла и за его пределами: 1. как это влияет на результат? 2. где про это...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru