1)i:=7;
<span>while i<=8 do begin
writeln('Привет!');
i:=i+1 =8
2)i:=8</span><span>;
<span>while i<=8 do begin
writeln('Привет!');
</span></span><span>i:=i+1 =9
На следующий раз он уже не повторится
Ответ: 7
</span>
Блок - схема, видимо вроде такого вам надо )
Program z1;
Var c,i:integer;
Begin
Read (n,i);
If not(c=2) then
For i to 0 do
begin
c:=c+1;
i:=i-2;
end;
writeln(n);
end.
<span>Через поле и лесок подаётся голосок. <span>
Он
бежит по проводам -
Скажешь здесь, а слышно там. (телефон)
</span></span>
Под крышей - четыре ножки,
На крыше - суп да ложки. (Стол)<span>
</span>Хоть по объёму и мала,
Информацию хранит она.
Знаем все устройство это
<span>Называется……
</span>
Адрес, имя, телефоны, все запишет, все запомнит!
<span>И девчонке и мальчишке, всем поможет эта книжка!
</span>
Скромный серый колобок, Длинный тонкий проводок, Ну а на коробке - Две или три кнопки. В зоопарке есть зайчишка, <span>У компьютера есть ...
</span>
Стоит весёлый, светлый дом.
Ребят проворных много в нём.
Там пишут и считают,
<span>Рисуют и читают.</span>
Ответ:
stones = int(input())
while stones > 0:
take = int(input())
stones -= take
print(stones)
Объяснение:
Просто скопируй, у меня работает(как и написано в твоём тексте).