Question

Program abc; var a,b: char: integer; begin; writeln('введите количество десятков лет'); readln(a); case a of; 1: =write('десять'); 2: =write('двадцать'); 3: =write('тридцать'); 4: =write('сорок'); 5: =write('пятьдесят'); 6: =write('шестьдесят'); 7: =write('семьдесят'); 8: =write('восемьдесят'); 9: =write('девяносто'); else write('число введено неверно'); end; writeln('введите количество едениц лет'); readln(b); case b of; 1: =write('один'); 2: =write('два'); 3: =write('три'); 4: =write('четыре'); 5: =write('пять'); 6: =write('шесть'); 7: =write('семь'); 8: =write('восемь'); 9: =write('девять'); else write('число введено неверно'); end; write('a' 'b' лет'); end. здесь содержиться наверное куча ошибок исправить мне выдало ошибку: встречено ': ' а ожидалось '; '

Answer 1

Уберите char. После begin не ставится точка с запятой. В Else не нужна точка с запятой, если там один оператор. После of точка с запятой не ставится. В перечне значений case не нужно =. Вывод по ходу программы не очень удобный. В последнем выводе выводите переменные просто как буквы, это ошибка. Вот, исправил основные ошибки. program abc; var a,b:integer; begin writeln('Введите количество десятков лет'); readln(a); case a of 1:write('десять'); 2:write('двадцать'); 3:write('тридцать'); 4:write('сорок'); 5:write('пятьдесят'); 6:write('шестьдесят'); 7:write('семьдесят'); 8:write('восемьдесят'); 9:write('девяносто'); Else Write('Число введено неверно') end; writeln('Введите количество едениц лет'); readln(b); case b of 1:write('один'); 2:write('два'); 3:write('три'); 4:write('четыре'); 5:write('пять'); 6:write('шесть'); 7:write('семь'); 8:write('восемь'); 9:write('девять'); Else write('Число введено') end; write(a, b, ' лет'); end.