Переделайте программу так, чтобы найти сумму s1 и s2
Answers & Comments
aleksss123
Нужно добавить: в разделе var - a,b,sum : longint; error : integer; перед close(td) - val(s1,a,error); val(s2,b,error); sum := a+b; writeln(sum); *Справка: процедура Val(S, x, kod) преобразует строку символов S в число x. Здесь S – строковое выражение, x – числовая переменная, kod - код ошибки.
Answers & Comments
в разделе var - a,b,sum : longint; error : integer;
перед close(td) - val(s1,a,error); val(s2,b,error); sum := a+b; writeln(sum);
*Справка: процедура Val(S, x, kod) преобразует строку символов S в число x. Здесь S – строковое выражение, x – числовая переменная, kod - код ошибки.