сделайте программу которая запрашивает однозначное число и сообщает его названиеОднозначное

Сделайте программу которая запрашивает однозначное число и сообщает его название
Однозначное число: 8
Это число восемь
на паскале плиз

Задать свой вопрос
Kirjuha Trepenkov
Есть рамки какие-то?
Варварюк Тимур
рамок нет, но чтоб в границах девятого класса решения было
Женя
можешь иное решить
Ульяна Никиточкина
плиз
Вулканов Игорь
числитель и знаменатель: 17 3
Людмила Жубрева
17/3=5 2/3
Илюха Сифуров
составьте программу которая запрашивает числитель и знаменатель ошибочной дроби и выделяет целую часть
Антон Хмарный
//PascalABC.NET//Версия 3.3, сборка 1634 (14.02.2018)begin var (a,b):=ReadInteger2('Введите числитель и знаменатель->'); if a-a div b*b=0 then Writeln(a,'/',b,'= ',a div b) else Writeln(a,'/',b,'= ',a div b,' ',a-a div b*b,'/',b)end.
Vadim Penkov
Пример:
Алиса Понтикова
Введите числитель и знаменатель-> 17 317/3= 5 2/3
2 ответа
//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)

begin
  var m1:=Arr('ноль','один','два','три','четыри','5','6','семь','восемь','девять');
  Println('Это',m1[ReadInteger]);
end.

Пример:
9
Это девять
Program v1;
Var  n: integer;
 Begin 
 Write ('Введите однозначное число: '); 
 Readln(n);  
Case n of 
 1: Write ('Единица');
 2: Write ('Два'); 
3: Write ('Три'); 
4: Write ('Четыри');
 5: Write ('Пять');
 6: Write ('6'); 
7: Write ('Семь'); 
8: Write ('Восемь'); 
9: Write ('Девять') 
 else Write ('Вы ввели не однозначное число!!!');End;
End.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт