номер друга

[Kovr]

Ввести номер телефона одного из четырех друзей. Вывести его имя.
помогите пожалуйста, запутался сильно,......
либо через case или if ..буду сильно благодарен)

[Alex11223]

Проблема-то в чем именно?

Например можно сделать запись (record) с полями для телефона и имени, создать массив из этих записей. Потом в цикле пройти массив и у каждого элемента проверять телефон пока не найдет нужный.

[Kovr]

я то понимаю что можно, но до массивов не дошли мы ещё(

[Serge_Bliznykov]

ReadLn(nomer);
if Nomer='111' then WriteLn('Это телефон друга по имени Иван Лапшин')
else
  if Nomer='222' then WriteLn('Это телефон друга по имени Ося Бендер')
  else
    if Nomer='333' then WriteLn('Это телефон друга по имени Киса Воробьянинов')
    else
    if Nomer='666' then WriteLn('Это телефон Воланда')
    else WriteLn('Телефон не опознан как известный!');

[Kovr]

спасибо огромное