Если требовалось сделать таблицу истинности, вот. Если нужно что-то другое, то пиши в комментарии, я доделаю.
сколько кружочков в числе, то есть в 8 два кружка и число 8888 - 8 кружков, и число 8 в числе с вопросами, значит ответ - 2
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
var m,n:integer;
begin
readln(m,n);
if (m mod n)=0 then
write(m div n) else
<span>writeln(m,'<em> на</em> ',n,' <em>нацело не делится.');
</em></span>end.
<em>Помог ставь "<u>Лучший ответ</u>" ;)</em>
А учебник какой? Скажи тогда решу