Размещено 4 года назад по предмету Информатика от ПЕЧЕНЬКАrus

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

Уберите 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.
1. Ответ на вопрос
  
  Ответ на вопрос дан igroman95
  
  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
2. Ответ на вопрос
  
  Ответ на вопрос дан igroman95
  
  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('девяносто');
3. Ответ на вопрос
  
  Ответ на вопрос дан igroman95
  
  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.
4. Ответ на вопрос
  
  Ответ на вопрос дан ПЕЧЕНЬКАrus
  
  спасибо большое
5. Ответ на вопрос
  
  Ответ на вопрос дан igroman95
  
  Обращайся