Program abc;var a,b:char:integer;begin;writeln('Введите количество десятков...

0 голосов
52 просмотров

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


Информатика (56 баллов) | 52 просмотров
Дан 1 ответ
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.

(1.0k баллов)
0

Буквами

0

:D

0

все нормально отбражается

0

Просто у меня теги всякие вроде
показываются. То есть норм?

0

да

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

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('девяносто');

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.

0

спасибо большое

0

Обращайся