vari:integer;beginwriteln(039;введите фамилию

Var
i:integer;
begin
writeln('введите фамилию ученика');
readln(i);
Ганиев:writeln('Динар');
Рахматуллин:writeln('Радмир');
Насыров:writeln('Альфрэд');
Закиров:writeln('Тимур');
Халиков:writeln('Рамиль');
else writeln ('Введите фамилию')
end;
readln;
end.

Program1.pas(11) : Встречено 'else', а ожидался оператор
что делать?

Денис Свердличенко 2019-08-11 07:42:15

А что делать? Оператор не может начинаться с else

Денчик 2019-08-11 07:50:03

Попробуй убрать readln и else

Бендашвили Наташка 2019-08-11 07:57:12

Здесь case надо ставить Var st: string; begin writeln('введите фамилию воспитанника'); readln(st); case st of 'Ганиев':writeln('Динар'); 'Рахматуллин':writeln('Радмир'); 'Насыров':writeln('Альфрэд'); 'Закиров':writeln('Тимур'); 'Халиков':writeln('Рамиль'); else writeln ('Нет такой фамилии') end; readln; end.