Опубликовано 03.01.2018 по предмету Информатика от Гость

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

Ответ оставил Гость

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