Определить сумма цифр какого числа самая большая

@Crus · Регистрация: 28.12.2009

Студворк — интернет-сервис помощи студентам

помогите с решением пожалуйста....

@TAVulator · 09.06.2010, 10:21

вот не проще было просто переписать? надо же было сфоткать, сбросить на комп, вложить на форум...

@Lyohich84 · 09.06.2010, 11:40

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
34
35
36
37
38
uses crt;
var
a,b,c,d:longint;
max:integer;
 
function summa_cifr(n:longint):integer;
var
s:string;
a:array[1..100] of byte;
i:byte;
code,summa:integer;
begin
str(n,s);
for i:=1 to n do
 val(s[i],a[i],code);
summa:=0;
for i:=1 to n  do
 summa:=summa+a[i];
summa_cifr:=summa;
end;
 
begin
clrscr;
write('Vvedite pervoe chislo=');readln(a);
write('Vvedite vtoroye chislo=');readln(b);
write('Vvedite tretye chislo=');readln(c);
max:=summa_cifr(a); d:=a;
if summa_cifr(b)>max then
 begin
 max:=summa_cifr(b); d:=b;
 end;
if summa_cifr(c)>max then
 begin
 max:=summa_cifr(c); d:=c;
 end;
writeln('Summa cifr chisla ',d,' bolshe, ona ravna ',max);
readln;
end.

@Crus · 09.06.2010, 15:00 **[ТС]**

я в паскале плоховато разбираюсь....пишет "процедура val с параметрами указаных типов ненайдена"

@Lyohich84 · 09.06.2010, 16:00

Сообщение от Crus

я в паскале плоховато разбираюсь....пишет "процедура val с параметрами указаных типов ненайдена"

Значит вы используете Pascal ABC (там процедуры Val нет), а у меня программа написана в Turbo pascal.

@Crus · 09.06.2010, 16:40 **[ТС]**

что мне там поменять?

@Puporev · 09.06.2010, 16:49

Процедура val в справке АВС есть

Val(s,v,code) процедура s - string, v - integer, real, и code - integer преобразует строку s к числовому представлению и записывает результат в переменную v. Если преобразование возможно, то в переменной code возвращается 0, если невозможно, то в code возвращается ненулевое значение

@Crus · 09.06.2010, 16:50 **[ТС]**

не совсем понял но вроде разобрался)))

@Puporev · 09.06.2010, 16:52

Вот написал в АВС

Pascal
1
2
3
4
5
6
7
8
9
var s:string;
    v:real;
    c:integer;
begin
s:='-12.325';
val(s,v,c);
write(v:0:3);
readln
end.

И все работает.

@Kizer · 09.06.2010, 17:49

Lyohich84, давно ли в PABC нет процедуры 'val'?

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
34
35
uses crt;
var
a,b,c,d:integer;
max:integer;
function summa_cifr(n:longint):integer;
var
s:string;
i:byte;
code,summa:integer;
begin
str(n,s);
summa:=0;
for i:=1 to n do  begin
 val(s[i],a,code);
 summa:=summa+a;  end;
summa_cifr:=summa;
end;
 
begin
clrscr;
write('Vvedite pervoe chislo=');readln(a);
write('Vvedite vtoroye chislo=');readln(b);
write('Vvedite tretye chislo=');readln(c);
max:=summa_cifr(a); d:=a;
if summa_cifr(b)>max then
 begin
 max:=summa_cifr(b); d:=b;
 end;
if summa_cifr(c)>max then
 begin
 max:=summa_cifr(c); d:=c;
 end;
writeln('Summa cifr chisla ',d,' bolshe, ona ravna ',max);
readln;
end.

Оптимальность решения, конечно, вызывает некоторые вопросы, но переписывать не хочется.

Новые блоги и статьи Все статьи Все блоги /
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .

@Crus 0 / 0 / 0 Регистрация: 28.12.2009 Сообщений: 10

	Определить сумма цифр какого числа самая большая 09.06.2010, 10:13. Показов 3136. Ответов 9 Метки нет (Все метки) помогите с решением пожалуйста.... Миниатюры 0

@TAVulator ⚽ 4191 / 1292 / 237 Регистрация: 27.07.2009 Сообщений: 3,962
	09.06.2010, 10:21
	вот не проще было просто переписать? надо же было сфоткать, сбросить на комп, вложить на форум... 0

@Crus 0 / 0 / 0 Регистрация: 28.12.2009 Сообщений: 10
	09.06.2010, 15:00 [ТС]
	я в паскале плоховато разбираюсь....пишет "процедура val с параметрами указаных типов ненайдена" 0

@Crus 0 / 0 / 0 Регистрация: 28.12.2009 Сообщений: 10
	09.06.2010, 16:40 [ТС]
	что мне там поменять? 0

@Crus 0 / 0 / 0 Регистрация: 28.12.2009 Сообщений: 10
	09.06.2010, 16:50 [ТС]
	не совсем понял но вроде разобрался))) 0