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
Объяснение:
информация – постоянный спутник человека люди всегда стремились облегчить свой труд с механизмов и машин. и такой машиной для работы с информацией стал компьютер.
человек и алгоритм в нашей повседневной жизни нас окружают алгоритмы, любой человек выполняет свои действия по порядку, раздумывая, правильно ли он поступает.
или теоретическая часть: для многих существуют определенные правила (инструкции), объясняющие исполнителю, как решать данную . чем точнее и понятнее будут описаны правила решения , тем быстрее человек овладеет ими и будет эффективнее их применять.
Begin
read(a,b,c);
if (a < 0) or (abs(a) > abs(b)) then a:= a - b
else a:=a-b-1;
writeln(a);
if (a > 0) or (abs(a) > abs(c)) then a:= a + c
else a:=a+c+1;
writeln(a);
End.