7раз отмерь один раз отреш
Неисчего!------------------
// PascalABC.NET 3.1, сборка 1184 от 02.03.2016
begin
var a:=SeqGen(8,1.0,i->i*0.5).ToArray; // 1 и 2
a.Println(NewLine); // вывод
Writeln('Меньших 0.1: ',a.Count(x->x<0.1)); // 3
for var i:=0 to 3 do Swap(a[i],a[7-i]); // 4
a.Println(NewLine); // вывод
end.
<u><em>Тестовое решение:</em></u>
1
0.5
0.25
0.125
0.0625
0.03125
0.015625
0.0078125
Меньших 0.1: 4
0.0078125
0.015625
0.03125
0.0625
0.125
0.25
0.5
1
<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
function NOD(var a,b:integer):integer;
begin
if a>b then a:=a-b
else
if b>a then b:=b-a;
if a=b then Result:=b
else Result:=NOD(a,b)
end;
begin
var (a,b):=(21,14);
Writeln(NOD(a,b))
end.
Алгоритм Евклида работает <u>только для натуральных чисел</u>!
Привіт як справи у мене все добре