Условие здесь должно быть i >= 0
1 шаг: 3 >= 0 ⇒ true, i=2
2 шаг: 2 >= 0 ⇒ true, i=1
3 шаг: 1 >= 0 ⇒ true, i=0
4 шаг: 0 >= 0 ⇒ true, i=-1
5 шаг: -1 >= 0 ⇒ false
Readln(m);
rez:=1;
while (i<=m) do
begin
rez:=rez*m;
inc(m);
inc(i);
end;
write(rez);
Построение логических схем и таблиц истинности к ним.
1. Когда знаешь не хуже учителя, а считать символы лень
<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
begin
var a:='моя Беларусь'.ToWords;
Writeln(a[0]+' родина '+a[1])
end.
2. Когда знаешь кое-что в Паскале, а считать символы лень
const
s='моя Беларусь';
var
i:integer;
begin
i:=Pos(' ',s);
Writeln(Copy(s,1,i),'родина ',Copy(s,i+1,Length(s)-i))
end.
3. Когда не знаешь почти ничего
const
s='моя Беларусь';
begin
Writeln(Copy(s,1,4),'родина ',Copy(s,5,8))
end.