Program saidim;
uses crt;
var
m:integer;
begin
writeln('******************************');
writeln('** Переводилка возраста **');
writeln('******************************');
writeln();
writeln('Введите возраст в месяцах');
readln(m);
writeln('*** alphaues is thinking... ***');
writeln();
// writeln('Возраст равен ',m div 12,' лет ',m mod 12,' месяцев');
write('Возраст равен ',m div 12);
case ((m div 12) mod 10) of
1: write(' год ');
2,3,4: write(' годa ');
else write(' лет ');
end;
case (m mod 12) of
0: writeln(' ровно ');
1: writeln(m mod 12,' месяц ');
2,3,4: writeln(m mod 12,' месяцa ');
else writeln(m mod 12,' месяцев ');
end;
end.
I равно 1, цикл выполняться не будет, y так и останется 1.
<span>Сколько существует различных наборов ответов на эту олимпиаду, отличающихся ответом хотя бы на одну задачу?</span>
<span>1задача - 5 вариантов</span>
<span>2 - 3</span>
<span>3 - 6</span>
<span>4 - 10</span>
<span>5 - 7</span>
<span>Всего (((5*3)*6)*10)*7=6300</span>
<span>
</span>
<span>Ответ 6300</span>
Ответ:
ответ 20путь есть.....из города А в город И