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

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

Добрый день! не понимаю, что от меня тут хотят, помогите, пожалуйста! задача следующая: написать программу, которая вычисляет сумму трех чисел, введенных в форме символьной строки. Заранее благодарю за помощь


textual

Код к задаче: «Вычислить сумму трех чисел - Turbo Pascal»

uses crt;
procedure vvod(var a:integer);
var s:string;
    c:integer;
begin
repeat
write('Введите целое число: ');
readln(s);
val(s,a,c);
if c<>0 then writeln('Это не целое число, повторите ввод');
until c=0;
end;
var a,b,c,sm:integer;
begin
clrscr;
vvod(a);
vvod(b);
vvod(c);
sm:=a+b+c;
write('Сумма=',sm);
readln
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

15   голосов, оценка 3.733 из 5

Источник