Помогите пожалуйста. Тема циклы. Уменшить данное число ** 4, пока оно положительное. ...

Question

Помогите пожалуйста. Тема циклы. Уменшить данное число на 4, пока оно положительное.
Исполнить x=13.
сделать блок схему и программу на паскале.

Comments

А блок-схему очень-очень обязательно? :) Лееень, а помочь хочется

---

не обязательно

Answer 1

Var
  a: integer;

begin
  readln(a);
  while (a > 3) do
    a := a - 4;
  writeln(a);
end.

-------------
Если нужно отнимать, даже если число перестанет быть отрицательным после очередной итерации:
var
  a: integer;

begin
  readln(a);
  while (a > 0) do
    a := a - 4;
  writeln(a);
end.

Comments

спасибо огромное)

---

Ой, станет таковым х)
Да не за что)