Вычислить сумму трех чисел - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

напишите программу которая вычисляет сумму трех чисел введенную в форме символьный строки все числа целые

Решение задачи: «Вычислить сумму трех чисел»

textual
Листинг программы
var s:string;
    a,b,c,sum:integer;
begin
writeln('Введите строку из трех целых чисел, разделенных пробелами');
readln(s);
a:=strtoint(copy(s,1,pos(' ',s)-1));
delete(s,1,pos(' ',s));
b:=strtoint(copy(s,1,pos(' ',s)-1));
delete(s,1,pos(' ',s));
c:=strtoint(s);
sum:=a+b+c;
write('Сумма=',sum)
end.

Оцени полезность:

14   голосов , оценка 4.071 из 5
Похожие ответы