Ввести число от 5 до 9.Вывести его значение словом.Turbo Pascal

Question

Ввести число от 5 до 9.Вывести его значение словом.Turbo Pascal

Comments

через if или case?

---

4. Составить программу для решения приведенного ниже задания двумя способами, используя: а) команду выбора case; б) команду if. Придумать и задать входные данные так, чтобы выбор состоял из 4-7 альтернатив.Ввести число от 5 до 9. Вывести его значение словом.

---

всё так?

---

да,спасибо

---

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

Answer 1

*****************C case*****************
Var
    a:integer;
Begin 
   Write('Введите число от 5 до 9: '); readln(a); 
     case a of 
     5:writeln('Вы ввели число "пять"');
     6:writeln('Вы ввели число "шесть"');
     7:writeln('Вы ввели число "семь"');
     8:writeln('Вы ввели число "восемь"');
     9:writeln('Вы ввели число "девять"')
   end;

readln
End.


*****************С if*****************
Var
    a:integer;
Begin
  Write('Введите число от 5 до 9: '); readln(a);
if a=5 then writeln('Вы ввели число "пять"');
if a=6 then writeln('Вы ввели число "шесть"');
if a=7 then writeln('Вы ввели число "семь"');
if a=8 then writeln('Вы ввели число "восемь"');
if a=9 then writeln('Вы ввели число "девять"');

readln
End.