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. здесь содержиться наверное куча ошибок помогите исправить
мне выдало ошибку:Встречено ':' а ожидалось ';'
Ответы на вопрос
Ответил igroman95
0
Уберите 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.
Ответил igroman95
0
if a*10+b=14 then writeln('Четырнадцать лет') else
if a*10+b=15 then writeln('Пятнадцать лет') else
if a*10+b=16 then writeln('Шестнадцать лет') else
if a*10+b=17 then writeln('Семнадцать лет') else
if a*10+b=18then writeln('Восемнадцать лет') else
if a*10+b=15 then writeln('Пятнадцать лет') else
if a*10+b=16 then writeln('Шестнадцать лет') else
if a*10+b=17 then writeln('Семнадцать лет') else
if a*10+b=18then writeln('Восемнадцать лет') else
Ответил igroman95
0
if a*10+b=19 then writeln('Девятнадцать лет') else begin
case a of
1:write('десять');
2:write('двадцать');
3:write('тридцать');
4:write('сорок');
5:write('пятьдесят');
6:write('шестьдесят');
7:write('семьдесят');
8:write('восемьдесят');
9:write('девяносто');
case a of
1:write('десять');
2:write('двадцать');
3:write('тридцать');
4:write('сорок');
5:write('пятьдесят');
6:write('шестьдесят');
7:write('семьдесят');
8:write('восемьдесят');
9:write('девяносто');
Ответил igroman95
0
Else write('число введено неверно')
end;
write(' ');
case b of
0:write(' лет');
1:write('один год');
2:write('два года');
3:write('три года');
4:write('четыре года');
5:write('пять лет');
6:write('шесть лет');
7:write('семь лет');
8:write('восемь лет');
9:write('девять лет');
else write('число введено неверно')
end;
end;
end.
end;
write(' ');
case b of
0:write(' лет');
1:write('один год');
2:write('два года');
3:write('три года');
4:write('четыре года');
5:write('пять лет');
6:write('шесть лет');
7:write('семь лет');
8:write('восемь лет');
9:write('девять лет');
else write('число введено неверно')
end;
end;
end.
Ответил ПЕЧЕНЬКАrus
0
спасибо большое
Ответил igroman95
0
Обращайся
Новые вопросы