Var i:integer; begin writeln('введите фамилию ученика'); readln(i);...

Question

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

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

Comments

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

---

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

---

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

Answer 1

Попробуй убрать реадлн и елсе

Answer 2

Вы if не написали . конструкция if(условие) then (оператор) else (оператор);

Comments

напишите case i of после ввлда i

---

ввода

---

if не пишите