Дан текст, в котором имеются цифры. Найти их сумму. Найти максимальную цифру

@аноним · Регистрация: 18.04.2012

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

Дан текст, в котором имеются цифры. Найти их сумму. Найти максимальную цифру.

@КонецСвета · 28.05.2012, 19:37

если действительно цифры а не числа

Pascal

uses crt;
var s: string;
    c: char;
    i: byte;
begin
write('s='); readln(s);
i:=1;
repeat
inc(i);
until (s[i] in ['0'..'9']) or (i>length(s));
c:=s[i];
for i:=1 to length(s) do
    if (s[i] in ['0'..'9']) and (s[i]>c)
       then c:=s[i];
writeln('Max.zifra=',c);
readln;
end.

@аноним 0 / 0 / 0 Регистрация: 18.04.2012 Сообщений: 14
		1
	Дан текст, в котором имеются цифры. Найти их сумму. Найти максимальную цифру 28.05.2012, 18:17. Показов 2646. Ответов 1 Метки нет (Все метки) Дан текст, в котором имеются цифры. Найти их сумму. Найти максимальную цифру. 0

	28.05.2012, 19:37

Дан текст, в котором имеются цифры. Найти их сумму. Найти максимальную цифру

Решение