Программа вычисляет введенное пользователем значение выражения типа A1 Z1 A2 Z2 A3 Z3 … Am Zm, где Ai — целое число от 0 до 9, а Zj — знак + или -.
Решение:
|
1
2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
program characters_and_strings_9;
uses crt; var example: string; i, n, znak, otv: integer; begin clrscr; randomize; Write(‘Введите пример > ‘); read(example); i:=3; n:=length(example); otv:=ord(example[1]); while i<=n do begin znak:=ord(example[i—1]); if znak=43 then otv:=otv+(ord(example[i])—48) else if znak=45 then otv:=otv—(ord(example[i])—48) else exit; i:=i+2; end; otv:=otv—48; write(example,‘=’,otv); readkey; end. |