Question

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

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.

Answer 2

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