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

Question

Дан текст, в котором имеются цифры. Найти их сумму. Найти максимальную цифру
На языке програмирования! Паскаль АВС........
Плиз помогите , срочно нужно

Comments

Текст должен вводиться с клавиатуры!! В тексте могут быть и обычные слова

---

одной программой

Answer 1

Program sum;
var a,b,c:real;
a:=пишешь число;
b:=пишешь второе число;
c:=a+b:
writeln ('сумма равна ' ,c:10:2);
readln;
end.

Comments

немножко не то

---

ща напишу решение на 2-ое

---

все в одном нужно

---

а понятно

---

Program название;
var a,b,c:real;
a:=пишешь число;
b:=пишешь второе число;
c:=a+b:
writeln ('сумма равна ' ,c:10:2);

---

Program название;
var a,b,c,max:real;
a:=пишешь число;
b:=пишешь второе число;
c:=a+b:
writeln ('сумма равна ' ,c:10:2);
writeln ('введите 3 вещественных числа ');
readln(a,b,c);
if a>=b then max:=a else max:b;
if c>max then max:=c;
writeln ('max ' ,max:10:2);
readln;
end.

---

ну как?

---

текст может содержать и буквы

---

ну тогда яхз