Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
Proper777
0 / 0 / 0
Регистрация: 09.03.2013
Сообщений: 4
1

Составить процедуру (или функцию) для вычисления суммы десятичных цифр некоторого числа N. Для заданной

10.03.2013, 21:23. Просмотров 1122. Ответов 1
Метки нет (Все метки)

Составить процедуру (или функцию) для вычисления суммы десятичных цифр некоторого числа N. Для заданной последовательности a1 , a2 , ... , an найти числа с минимальной и максимальной суммой цифр.
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.03.2013, 21:23
Ответы с готовыми решениями:

Составить пользовательскую процедуру или функцию для вычисления суммы: (1^1+1)/1 + (2^2+1)/(1*2) + ( 3^3+1)/(1*2*3) + ... + (n^n+1)/(1*2*3*4*...* n)
Составить пользовательскую процедуру или функцию для вычисления суммы: (1^1+1)/1 + (2^2+1)/(1*2)...

Составить процедуру и функцию для вычисления значений элементов матрицы по заданной формуле
Составить подпрограмму-процедуру и подпрограмму-функцию для вычисления значений элементов а ij...

Составить пользовательскую процедуру или функцию для вычисления произведения
Составить пользовательскую процедуру или функцию для вычисления произведения: (1/(1+1)2) * (...

Составить пользовательскую процедуру или функцию для вычисления произведения
Составить пользовательскую процедуру или функцию для вычисления произведения: (1/(1+1)2) * (...

Составить пользовательскую процедуру или функцию для вычисления произведения
Составить пользовательскую процедуру или функцию для вычисления произведения: (1/(1+1)2) * (...

1
Fakeoke
462 / 346 / 204
Регистрация: 28.07.2011
Сообщений: 1,992
10.03.2013, 22:43 2
Лучший ответ Сообщение было отмечено Proper777 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
uses crt;
const n=10;
var a,b:array [1..n] of integer;
i,j,x,max,min,maxi,mini:integer;
function sum(x:integer):integer;
var s:integer;
begin
s:=0;
while x>0 do
begin
s:=s+x mod 10;
x:=x div 10;
end;
sum:=s;
end;
begin
ClrScr;
randomize;
max:=-maxint;
min:=maxint;
for i:=1 to n do
        begin
        a[i]:=random(100);
        write(a[i]:4);
        b[i]:=sum(a[i]);
        if b[i]>max then begin max:=b[i]; maxi:=i; end;
        if b[i]<min then begin min:=b[i]; mini:=i; end;
end;
writeln;
writeln('Max summa cifr = ',max,' u 4isla = ', a[maxi]);
writeln('Min summa cift = ',min,' u 4isla = ', a[mini]);
readkey;
end.
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.03.2013, 22:43

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Составить пользовательскую процедуру или функцию для вычисления произведения
Составить пользовательскую процедуру или функцию для вычисления произведения: (1^2/(1+1)^2) * (...

Составить пользовательскую процедуру или функцию для вычисления произведения
Составить пользовательскую процедуру или функцию для вычисления произведения: (1/(1+1)2) * (...

Составить пользовательскую процедуру или функцию для вычисления произведения:
Составить пользовательскую процедуру или функцию для вычисления произведения:


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

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

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