написание краткого содержания параграфа текста, так как человек прочитал это и уже работает с прочитаным
Program faktorial;
uses crt;
var n,i,k : longint;
begin
clrscr;
writeln('Vvedite chislo');readln(n);
k:=1;
for i:=1 to n do
k:=k*i;
write('factorial chisla ',n,' raven ', k);
readkey;
<span>end.</span>
Так.
Вот у нас диаграмма.
Из нее видим, что одна часть составляет половину, одна часть составляет четверть, две части составляют по восьмой части.
При подставлении в формулы получается число, которое должно соответствовать одной из части диаграммы.
и так, поехали искать формулу.
возьмем формулу
(2, b) ( 5 + 3)/2 = 8/2 = 4
(2, c) 5 - 3 = 2
(2, d) 4 / 2 = 2
и так, у нас получились числа 2, 2, 4.
дальше начинаем перебирать формулы, которые в низу которые надо подобрать под ответ:
1) a1 + c1 + d1 = 2 + 5 + 3 = 10, не подходит, потому что должно получиться 8(это следует из того, что у нас уже есть две 2, которые являются восьмыми частями диаграммы и 4, которая является четвертью, значит половина должна быть 8)
2) 2 * d1 = 2* 3 = 6, не подходит
3) a1/2 = 2/2 = 1, не подходит
4) a1 * b1 = 2 * 4 = 8, это выражение нам подходит
у нас получаются числа
2 2 4 8
соответствующая формула для 2А будет под номером 4
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
if (($a+$b+$c) % 2 = 0) {$a = 2*$a; $b = 2*$b; $c = 2*$c;}