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