Напишите программу, которая вводит возраст человека (целое число, не превышающее 120) и выводит этот возраст со словом "год" "года" или "лет". Например
5-9 класс
|
"21 год" "22 года" "25 лет"
Program years;
year:integer;
begin
readln(year);
if(year >0) and(year<=120) then begin
if(year mod 10 =0)or(year mod 10 >=5) then writeln(year, ' лет ')
else if(year mod 10 =1)then writeln(year, ' год ')
else writeln(year, ' года ');
end;
end.
Напишите программу, которая определяет, верно ли, что введённое число трёхзначное.
a:integer;
if (a>99) and (a<1000)
все))
Напишите программу, которая вводит целое число, не превышающее 100, и выводит его прописью, например: 21- "двадцать один"
Другие вопросы из категории
А рисунок
Б таблица
В схема
Г формула
Графической моделью иерархической системы являются
математическая модель
табличная модель
натуральная модель
иерархической моделью
Читайте также
его на цифры. Например, при вводе числа 123 программа должна
вывести 1, 2, 3.
2. Напишите программу, которая вводит возраст человека (число, не
превосходящее 120) и выводит на экран этот возраст со словом «»год,
«года» , «лет» . например «21 год», «22 года», «15 лет»
Помогите пожалуйста !!!!
первым игроком .к этой сумму первый игрок также прибавляет произвольное число не превышающее 10 ,и сообщает новую сумму .И т.д до тех пор пока окончательной суммой не окажется число 100 .выигрывает тот, кто первый достигнет 100.как должен действовать первый игрок , чтобы выиграть?
ПОМОГИТЕ ПЛиз
результат
2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат
ихся 0 или 1.
Программа получает на вход целые числа от -3000 до 3000.
2)Напишите программу,которая в последовательности целых чисел вычисляет среднее арифметическое среди двухзначных чётных чисел,делящихся на 3.
НУЖНО СЕГОДНЯ! 66 БАЛЛОВ!