Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
eddmanutd
0 / 0 / 3
Регистрация: 12.02.2011
Сообщений: 29
#1

цикл for - Turbo Pascal

26.02.2011, 20:28. Просмотров 944. Ответов 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 видам циклов...цикл с параметром,цикл с условием,цикл,и цикл с предусловием...
Найти сумму чисел 1 в квадрате до 10 c квадрате...операцию возведению в степень...

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

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

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

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

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

1
Dekio
Фрилансер
Эксперт С++
5837 / 1218 / 499
Регистрация: 23.11.2010
Сообщений: 3,377
Записей в блоге: 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 количество раз слово "цикл"
Используя цикл с предусловием (Pascal) вывести на экран n-ное количество раз...

Цикл с предусловием, цикл с постусловием и цикл с параметром
Объясните пожалуйста как делать эти циклы. У меня не получается. Можете сделать...

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

Цикл: Вычислить значение выражения. Как вывести формулу и сделать цикл while?
Последовательно вводятся N целых чисел. Найти минимальное из них. ...


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

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

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