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
1-B
2-A
3-C
4-D
5-A
6-C
7-A
8-C
9-C
10-E
На телефоне идёт цифровая обработка информация (вкратце - 1 и 0), они переводятся в другой более "восприимчивый" человеком код, и обрабатывается.. На других устройствах - всё аналогично.. Зависит от того, как запрограммированы микроконтроллеры/микропроцессоры в них:)
Var
a,b:Integer;
Begin
Read(a,b);
if (a>b) then Writeln(b,' ',a)
else Writeln(a,' ',b);
end.
Просто сделай 1 квадрат и скапируй его и так до 5