//Dev-C++ 5.11 (C)
float zna(float a,float b,float c)
{if(c*a-a*b==0)
{printf("An attempt to divide by zero");
return 0;}
else
return ((a*b+b*c)/(c*a-a*b));}
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.
ПОСЛЕДОВАТЕЛЬНОСТЬ ФИБОНАЧЧИ, математическая ПОСЛЕДОВАТЕЛЬНОСТЬ, каждый член которой является суммой двух предыдущих. Таким образом, если энный член последовательности обозначается хn, то для всей последовательности справедливым будет уравнение: хn+2=хn+хn+1, первыми двумя членами которого будут x1=l и x2=1. Порядок последовательности при этом таков: 1, 1, 2, 3, 5, 8, 13, 21..., следующим числом будет 34, т. к. сумма 13 и 21 равна 34 и т.д. Когда число n становится очень большим, отношение соответствующих членов устремляется к величине (Ц5+l)/2. Это соотношение называется золотым. В природе последовательность Фибоначчи можно проследить на примерах спирального развития сегментов раковины и лепестков подсолнуха, расходящихся лучами из одной точки в центре цветка. см. также ЗОЛОТОЕ СЕЧЕНИЕ.<span> </span>
1. var z:array[1..8,1..5] of real;
2. n[i,k]:=random(90)-62;