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.
Какой скажи рисунок надо сделать попробую помочь
<span>да мы можем увидеть какие есть деревья ,животные и научиться различать их))</span>
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var a:=ArrRandom(10,-99,99); a.Println
end.
<u><em>Тестовое решение</em></u>
-12 -89 55 66 41 -31 17 -25 -34 -71
uses crt;
var a,b:integer;
begin
write('Здравствуйте! Пожалуйста, введите стоимость книг: ');
readln(a);
write('Введите сумму денег: ');
readln(b);
if a=b then writeln('Спасибо за покупку!');
if a>b then writeln('Сумма денег меньше, чем стоимость книг. Вам не хватает ',a-b,' рублей.');
if a<b then writeln('Спасибо за покупку! Ваша сдача: ', b-a, ' рублей.');
end.