Информатика на пять О нас
 Добавить в избранное
5byte.ru
 Теория
 8 класс
 9 класс
 10 класс
 11 класс
Задания
 8 класс
 9 класс
 10 класс
 11 класс
Книги
Тесты
ЕГЭ
Turbo Pascal 7
 Описание
 Задачи
HTML
Рефераты

Задача 13.

Использование структуры case ... of для преобразования введенного целого числа из диапазона (0..4) в его словесное представление

Program Digit2;
  var Num: integer;
begin
  write('Введите число:');
  readln(Num);
  case Num of
    0: writeln('Нуль');
    1: writeln('Один');
    2: writeln('Два ');
    3: writeln('Три ');
    4: writeln('Четыре')
    else writeln('Введено другое число')
  end;
  readln
end.





 У Вас есть материал пишите нам
 
    Copyright © 2008    
  Top.Mail.Ru