Исходя из самого вопроса - тут не важно само выражение функции.
1. 7 { -6, -4, -2, 0, 2, 4, 6 }
Var k,n : Real;
Begin
n:=0;
k:=-6;
While k<=6 do
Begin
k:=k+2;
n:=n+1;
end;
Writeln('n = ',n);
end.
2. 7 { -2, -1.5, -1, -0.5, 0, 0.5, 1 }
Var k,n : Real;
Begin
n:=0;
k:=-2;
While k<=1 do
Begin
k:=k+0.5;
n:=n+1;
end;
Writeln('n = ',n);
end.
3. 3 { -3, -1, 1 }
Var k,n : Real;
Begin
n:=0;
k:=-3;
While k<=2 do
Begin
k:=k+2;
n:=n+1;
end;
Writeln('n = ',n);
end.
4. 7 { -1, -0.5, 0, 0.5, 1, 1.5, 2 }
Var k,n : Real;
Begin
n:=0;
k:=-1;
While k<=2 do
Begin
k:=k+0.5;
n:=n+1;
end;
Writeln('n = ',n);
end.
Program pr1;
Var A:array [1..10] of integer;
i,k:integer;
begin
for i:=1 to 10 do
read (A[i]);
k:=0;
for i:=1 to 10 do
if A[i] mod 2=0 then
k:=k+1;
writeln;
writeln (k);
end.
наверное так, но лучше проверь в паскале
var a: array[1..10] of integer;
i,p: integer;
begin
randomize;
p:=1;
for i:=1 to 10 do begin
a[i]:=random(11)-5;
write(a[i],' ');
if a[i]<>0 then p:=p*a[i];
end;
writeln;
write('p=',p);
end.
Значение переменной x после выполнения программы: 36.
Пусть старший брат идет со скоростью 1, тогда младший:
1 * (100-10)% * (100+10)% = 1 * 0,9 * 1,1 = 0,99. Вывод:
Старший брат прийдет быстрее.