Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
eddmanutd
0 / 0 / 0
Регистрация: 12.02.2011
Сообщений: 29
#1

цикл for - Turbo Pascal

26.02.2011, 20:28. Просмотров 932. Ответов 1
Метки нет (Все метки)

Дано произвольное целое четырехзначное число. Найти сумму и произведение всех его цифр

надо использовать цикл for.

решение без for есть:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program p1;
var n,i,j,k,l,p,s:integer;
begin
writeln('vvedite chislo');
readln(n);
i:=n div 1000;
j:=n div 100 mod 10;
k:=n div 10 mod 10;
l:=n mod 10;
p:=i*j*k*l;
s:=i+j+k+l;
writeln('proizvedenie=',p);
writeln('summa=',s);
readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.02.2011, 20:28
Здравствуйте! Я подобрал для вас темы с ответами на вопрос цикл for (Turbo Pascal):

Создать программу по всем 3 видам циклов...цикл с параметром,цикл с условием,цикл,и цикл с предусловием... - Turbo Pascal
Найти сумму чисел 1 в квадрате до 10 c квадрате...операцию возведению в степень не использовать учесть особенности получения квадратного...

Написать в турбо паскале, Цикл с параметром, Цикл, с постусловием, и с предусловием пожалуйста - Turbo Pascal

Итерационный цикл и цикл с известным числом повторения - Pascal
5.12-интерационный цикл 4.9-цикл с известным числом повторений

Цикл While переделать на цикл repeat until - Turbo Pascal
как из While переделать на цикл repeat until

Цикл с предусловием и цикл с постусловием - Turbo Pascal
Составить 3 условия программы с использованием оператора цикла с предусловием и 3 условия программы с использованием оператора цикла с...

Цикл FOR,WHILE и Цикл DO WHILE (DENWER+PHP) - Pascal
Составить алгоритм и программу для вычисления произведения чисел: 13, 14.3, 15.6, 16.9, …, 40.3 Цикл FOR, Цикл WHILE B Цикл DO WHILE

1
Dekio
Фрилансер
Эксперт С++
5837 / 1218 / 214
Регистрация: 23.11.2010
Сообщений: 3,378
Записей в блоге: 1
26.02.2011, 21:50 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program Dekio;
var
i, num, sum, pr: integer;
begin
sum:=0; pr:=1;
readln(num);
for i:=1 to 4 do
begin
inc(sum,num mod 10);
pr:=pr*(num mod 10);
num:=num div 10;
end;
writeln('sum = ',sum:3,'  pr =',pr:3);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.02.2011, 21:50
Привет! Вот еще темы с ответами:

Цикл с предусловием.Вывести на экран n количество раз слово "цикл" - Turbo Pascal
Используя цикл с предусловием (Pascal) вывести на экран n-ное количество раз слово "цикл".

Как реализовать бесконечный цикл While, но чтобы этот цикл не грузил процессор? - Visual C++
Допустим есть цикл: while (1) { ... } Как сделать так, чтобы бесконечный цикл не грузил процессор. Избавиться от...

.NET 3.x Почему если условие входа в цикл не выполняется, функция заново входит в цикл - C#
Сам код: private void traverse_node(TreeControlItem node) { TreeControlItem childNode = default(TreeControlItem);...

Цикл: Как грамотно организовать цикл с получением количества верных и неверных ответов? - VBA
Доброго времени суток, товарищи. Вот есть у меня два рандомно генерируемых числа, проверка произведения которых проверяется вводом ответа...


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

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

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