В цикле прибавит 7 к самой себе 9 раз, т.е 7*9=63
Ответ: 63
//PascalABC.NET 3.2 сборка 1318
Const
n=5;
Var
ar:array[1..n] of integer;
i,indf:integer;
begin
indf:=-1;
for i:=1 to n do
begin
readln(ar[i]);
if not(odd(ar[i])) then indf:=i;
end;
if indf=-1 then
writeln('Нет чётных')
else
begin
for i:=indf to n-1 do
ar[i]:=ar[i+1];
for i:=1 to n-1 do
write(ar[i]:4);
end;
end.
Пример ввода:
1 2 3 4 5
Пример вывода:
1 2 3 5
1)
const f0=1; fk=10; h=0.5;
var f:real; i:integer;
begin
f:=f0-h;
writeln('Фунты Кг');
for i:=1 to round((fk-f0)/h)+1 do
begin
f:=f+h;
writeln(f:4:1,f*0.4:7:3);
end;
end.
2)
const f0=1; fk=10; h=0.5;
var f:real;
begin
f:=f0-h;
writeln('Фунты Кг');
while f<fk do
begin
f:=f+h;
writeln(f:4:1,f*0.4:7:3);
end;
end.
3)
const f0=1; fk=10; h=0.5;
var f:real;
begin
f:=f0-h;
writeln('Фунты Кг');
repeat
f:=f+h;
writeln(f:4:1,f*0.4:7:3);
until f>=fk;
end.
Результат:
Фунты Кг
1.0 0.400
1.5 0.600
2.0 0.800
2.5 1.000
...
9.0 3.600
9.5 3.800
10.0 4.000
Rgb - red green blue
значение каждого параметра от 0 до 255 так что 512 вовсе не подходит
для якро красного подойдет только 0
ответ 0