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...
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; 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.
Не нашли ответ?
Похожие вопросы