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
<span>Мальчик, увлекающийся лёгкой атлетикой, рассказывает о новостях спорта Лёше и Саше;
Лёгкая атлетика - не Саша и не Лёша => остаются: Юра, Виталий или Антон
</span>
<span><span>Виталий не занимается лёгкой атлетикой, как Антон;
Лёгкая атлетика - не Антон и не Виталий => остался: Юра</span>
Юра - атлет
В отличие от Саши, его сестра умеет плавать;
Саша - не плаванье => остаётся: борьба, гимнастика, гребля
Саша, гимнаст и мальчик занимающийся греблей - друзья;
Саша - не гимнастика и не гребля = > остаётся борьба
Саша - борец
Антон и Лёша никогда не посещали бассейн;
Плаванье - не Антон и не Лёша => остался: Виталий
Виталий - пловец
Лёша, в отличие от Антона, умеет держать в руках вёсла.
Лёша - гребец
Антон - гимнаст
Итого:
</span>
Юра - атлет
Саша - борец
Виталий - пловец<span>
Лёша - гребец
Антон - гимнаст</span>
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var s:='дисковод';
Writeln(Copy(s,6,2)+Copy(s,3,2))
end.
Кбит/с=1024бит/с
мбит/с= 1048576 бит/с
гбит/с= 1073741824бит/с