Сколько из приведённых чисел Z удовлетворяют логическому условию: ((Z кратно 3)v (Z кратно 5)) → (Z кратно 6)? 1) 4; 2) 6; 3) 12; 4) 25.

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

Объяснение: