Алгоритм решения задачи. 2. Ввод переменных и значения возраста;

1. Ввод возраста;

2. Ввод переменных и значения возраста;

3. Вывод на экране возраста в лет, год, и года.;

Рис.3– Блок-схема алгоритма

Листинг работы

Program primer3;

Var A:integer;

Begin

Writeln(‘введите возраст’)

Readln(a);

CASE A of

1,21,31,41,51,61,71,81,91:writeln(‘год’);

2..4,22..24,32..34,42..44,52..54,62..64,72..74,82..84,92..94:writeln(‘’);

5..20,25..30,35..40,45..50,55..60,65..70,75..80,85..90,95..99:writeln(‘’);

ELSE writeln(‘ошибка’)

Writeln(‘Программу составила Зарипова Ирина Булатовна − студентка группы КС-111’);

end.

Протокол работы

Вводимое число а;

Вводите значение переменных;

Вывод на экране год, года, лет.

Ручной расчет

1,21,31,41,51,61,71,81,91:writeln(‘год’);

2..4,22..24,32..34,42..44,52..54,62..64,72..74,82..84,92..94:writeln(‘’);

5..20,25..30,35..40,45..50,55..60,65..70,75..80,85..90,95..99:writeln(‘’);

Линейные 1.