Вычислить сумму трех чисел - 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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д