напишите программу которая получает возраст человека и выводит его возраст со словами: год,года или лет??))помогите,очень нужно) но программа должна
10-11 класс
|
быть простая,так как я учусь в соц.гуме)
var
n:integer;
begin
readln(n);
if (n mod 10 = 1) and ((n mod 100) div 10<>1) then
writeln(n,' год')
else
if ((n mod 10 = 2) or (n mod 10 = 3) or (n mod 10 = 4)) and ((n mod 100) div 10<>1) then
writeln(n,' года')
else
writeln(n,' лет');
end.
Другие вопросы из категории
онный объём статьи в одной из кодировок Unicode, в которой каждый символ кодируется 16 битами.
=С$1+$С4
=В$1+D$4
=C$4+$D2
=C1+C4
Читайте также
21 год, 22 года, 25 лет
разность чисел p и q.
2.Что будет на экране после выполнения следующих команд: а) Writeln(9); Write(5); Writeln(3); б) Writeln(4*2); Write('5-3'); Writeln('5+1=',5+1);
3.Укажите различия циклов While и Repeat
4.Дана строка. Определить сколько пробелов в этой строке
6.Дано четырехзначное число. Вывести на экран сумму цифр этого числа
7.Найти количество цифр целого числа N
8.Напишите команды, которые выполняют следующие действия: а) ввод переменной d б) описать переменные m и n вещественного типа. в) переменной s присвоить разность чисел p и q
9.Что будет на экране после выполнения следующих команд: Writeln(5-3); Write('5+3'); Writeln('5*4=',5*4);
10.Когда нельзя применять цикл for
11.Дана строка. Определить сколько букв в этой строке
12.Дано трехзначное число. Вывести на экран все его цифры столбиком
13. Найти количество цифр целого числа N(+блок-схема)
Составить программу,которая определяет возраст человека по количеству дней, с учётом год, года,лет. в раскале!