сервис вопросов и ответовНапишите программу ,которая вводит целое число ,не превышающее 100,и выводит его прописью,например:21>"Двадцать один"
5-9 класс|
|
Puceleva75
29 июля 2013 г., 21:22:53 (10 лет назад)
Amiraiergaliev
29 июля 2013 г., 21:59:15 (10 лет назад)
program abc;
var
a,b,c,t,z:integer;
m,k,l:string;
label 1,2,3,4;
begin
writeln ('Введите число от 1-го до 100');
repeat read(a) until (a>=0)and(a<=100);
b:=a div 10;
c:=a mod 10;
if a=100 then goto 2;
if a=0 then goto 1;
if (a>9) and (a<20) then goto 4;
case b of
2:m:='Двадцать ';
3:m:='Тридцать ';
4:m:='Сорок ';
5:m:='Пятьдесят ';
6:m:='Шестдесят ';
7:m:='Семдесят ';
8:m:='Восемьдесят ';
9:m:='Девяносто '; end;
case c of
1:k:='один';
2:k:='два';
3:k:='три';
4:k:='четыре';
5:k:='пять';
6:k:='шесть';
7:k:='семь';
8:k:='восемь';
9:k:='девять';
end;
writeln (m,k);
goto 3;
2:writeln ('Сто');
goto 3;
1: writeln ('Ноль');
goto 3;
4: if a=10 then writeln ('Десять');
if a=11 then writeln ('Одиннадцать');
if a=12 then writeln ('Двенадцать');
if a=13 then writeln ('Тринадцать');
if a=14 then writeln ('Четырнадцать');
if a=15 then writeln ('Пятьнадцать');
if a=16 then writeln ('Шестнадцать');
if a=17 then writeln ('Семнадцать');
if a=18 then writeln ('Восемнадцать');
if a=19 then writeln ('Девятнадцать');
3:end.
Artem7575
29 июля 2013 г., 22:42:04 (10 лет назад)
Комментарий удален
Ответить
Другие вопросы из категории
Определите, что получится в результате выполнения в графическом
редакторе Paint следующей последовательности действий.Действия:1.
Установить основной цвет жёлтый. 2.Выбрать инструмент Овал и настроить
его на 3-ий режим заполнения.3. Удерживая клавишу {Shift}, нарисовать
круг.4. Выбрать инструмент Линия и настроить его нарисование самых
жирных линий. 5. Удерживая клавишу {Shift), изобразить отрезки,
выходящие из центра жёлтого круга.На экране будет нарисовано солнце.Предложите другую последовательность изображения этого же объекта: (Помогите другую последовательность сделать!).
Помогите пожалуйста!
Есть число 283637, нужно вытащить четвертое число и применить при решение способ символов, в Паскаль АВС.
Исполнитель Кузнечик может перемещаться
по числовой оси. Его система команд:
«Вперед N» (прыгает вперед на N единиц)
и «Назад N» (прыгает назад на N единиц).
Программа для Кузнечика может содержать
запись «Повтори М [Команда 1 Команда
2]», которая означает, что последовательность
команд в скобках повторится М раз.
Расположите программы для Кузнечика в
порядке ВОЗРАСТАНИЯ расстояний между
начальным и конечным местоположением
исполнителя.
Читайте также
1. Напишите программу, которая вводит трехзначное число и разбивает
его на цифры. Например, при вводе числа 123 программа должна
вывести 1, 2, 3.
2. Напишите программу, которая вводит возраст человека (число, не
превосходящее 120) и выводит на экран этот возраст со словом «»год,
«года» , «лет» . например «21 год», «22 года», «15 лет»
Помогите пожалуйста !!!!
Играют двое . Первый участник игры называет произвольное целое число ,не превышающее 10.Второй игрок прибавляет свое произвольное число к числу названному
первым игроком .к этой сумму первый игрок также прибавляет произвольное число не превышающее 10 ,и сообщает новую сумму .И т.д до тех пор пока окончательной суммой не окажется число 100 .выигрывает тот, кто первый достигнет 100.как должен действовать первый игрок , чтобы выиграть?
ПОМОГИТЕ ПЛиз
Помогите по программе paskal : 1.дано целое число.напишите программу которая уменьшает на 2 модуль этого числа и выводит на экран монитора
результат
2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат
1)Напишите программу,которая в последовательности целых чисел определяет количество трехзначных чисел,не кратных 5 и 7 и не заканчивающ
ихся 0 или 1.
Программа получает на вход целые числа от -3000 до 3000.
2)Напишите программу,которая в последовательности целых чисел вычисляет среднее арифметическое среди двухзначных чётных чисел,делящихся на 3.
НУЖНО СЕГОДНЯ! 66 БАЛЛОВ!
Вы находитесь на странице вопроса "Напишите программу ,которая вводит целое число ,не превышающее 100,и выводит его прописью,например:21>"Двадцать один"", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.