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,8 секунда, а если в минутах то 0,03 минуты.
1) Основной инструмент передачи, хранения и обработки информации (9 букв).-компьютер
2) Основное устройство ввода информации (10 букв).-клавиатура
3) "Мозг" компьютера (9 букв).-процессор
4) Устройство вывода информации (7 букв).-монитор
5) Устройство хранения программ и данных (6 букв).-память
6) Устройство для быстрого перемещения по экрану и выбора информации (4 буквы).-мышь
7) Носитель информации, на который записывают программы для хранения (7 букв).-дискета
<span>8) Другое название жёсткого диска (9 букв). -винчестер</span>
<span>9) Устройство, с помощью которого можно вывести на бумагу тексты и рисунки (7 букв).-принтер</span>
Фамилия брюнета Ивана - Антонов, Борисов, Глебов или Дмитриев. Но
Антонов и Глебов не женаты, а Иван женат на сестре жены Дмитриева.
Поэтому Иван имеет фамилию Борисов.
Егоров блондин, то есть его имя - Борис, Дмитрий, Антон или Глеб. Но так
как человек, фамилия которого совпадает с именем Егорова, женат,
то имена Антон и Глеб исключаются. Кроме того, теперь
можно исключить и имя Борис: в этом случае из условия следовало бы, что
имя Борисова - Егор, а мы уже выяснили, что его зовут Иван.
Методом исключения получаем, что имя Егорова - Дмитрий.
Следовательно, фамилия Бориса совпадает с именем Дмитриева.
Отсюда, кстати, следует, что Борис - не Иванов.
Поэтому для блондина Иванова остаются только два имени - Антон или Глеб.
Но Глеб отпадает по условию (его фамилия не Иванов, а лишь совпадает с
именем Иванова). Значит, Иванова зовут Антон. Тогда Глеб
имеет фамилию Антонов. Соответственно, неженатый Егор - Глебов.
Остались только Василий и Борис, фамилии которых - Васильев и Дмитриев.
Ясно, что фамилия Бориса - Васильев, а Василия - Дмитриев.
Const n = 5;
var
i, p, x:byte;
z: array[1..n] of byte;
begin
readln(x);
for i:=1 to n do
begin
readln(z[i]);
if z[i]=x then p:=i;
end;
writeln(p);
end.