program While2;
uses PT4;
function Iter(a, b: real): integer;
begin
Result := 0;
repeat
Result += 1;
a -= b
until a < b
end;
begin
Task('While2');
var (A, B) := ReadReal2();
Write(Iter(A, B))
end.
Це означає як шукати. Через пошукові системи.
1 строчка = 0,1,2,3,4,5,6,8
2 = 0,2,4
3 что значит / ?
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var a:=ArrRandom(ReadInteger('n='),1,100); a.Println;
Writeln('Четных элементов: ',a.Where(x->x.IsEven).Count)
end.
<u><em>Тестовое решение</em></u>
n= 15
48 48 85 94 39 45 22 16 75 51 85 97 91 31 92
Четных элементов: 6