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

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

09.12.2011, 19:28. Просмотров 304. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Запись без цикла (Pascal ABC):

Как протабулировать функцию без оператора цикла
Как это сделать без использования оператора цикла program Tabulyazia1; var...

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

Остановка цикла без 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; выдает ошибку "Нельзя изменять...

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

1
Igor
4617 / 3376 / 353
Регистрация: 11.11.2010
Сообщений: 6,182
Записей в блоге: 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
Привет! Вот еще темы с решениями:

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

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

Двумерный массив. Заполнить и вывести двумерный массив БЕЗ использования цикла FOR
Заполнить ивывести двумерный массив БЕЗ использования цикла FOR очень...

Что означает "Нельзя изменять значение переменной цикла внутри этого цикла"?
Собственно, сама программа. {Дана целочисленная матрица Aij i=1..n,j=1..m...


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

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

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