<span><span>var
a, b, c : longint;</span><span>function nod3 (a, b, c :longint) : longint;
begin
nod3 := nod (nod (a, b), c);
end;</span><span>function nod(var a, b: longint): longint;
begin
if (a = 0) or (b = 0) then
if a = 0 then
nod:= b
else
nod:= a
else
if a >= b then
nod:= nod( a mod b, b)
else
nod:= nod( a, b mod a)
end;</span><span>begin
read (a, b, c);
writeln (nod3 (a, b, c));
end.</span></span>
Program multiplication;
var i : byte;
begin
for i:=1 to 10 do
writeln('5*',i,'=',5*i);
end.
М - количество ракушек у мудрика
Э - количество какушек у элзик
Из первого условия:
М-1 = Э+1 (1)
Из второго условия:
М +1 =2*(Э-1) (2)
Из (2) уравнения находим: М= 2*Э -2-1=2*Э-3.
Подставляем М во (1) уравнение:
2*Э-3-1=Э+1 --> Э =5, подставляем Э=6 в (1) уравнение и находим М:
М=7
Ответ: было: у мудрика 7 ракушек, у элзика 5 ракушек
А) восьмеричной; 77 56+7=63
б) пятеричной; 44 - 20+4=24
в)троичной; 22 - 6+2=8
г) двоичной. 11 - 2+1=3<span>
</span>
<span>//PascalABC.NET
//Версия 3.3. сборка 1583 (25.11.2017)</span>
begin
var n:=ReadInteger('Введите n-> ');
for var i:=1 to n do
Writeln((1+i)/(2+i):0:2);
end.
Пример:
Введите n-> 5
0.67
0.75
0.80
0.83
0.86