Сколько раз будет выполняться цикл?


program d;

uses crt;

var a, b, c: integer;

begin

a:=12;

WHILE a>3 DO

begin

a:=a-1;

end;

end.


1

Ответы и объяснения

  • Участник Знаний
2014-03-03T18:09:15+00:00
9 раз
program d;
var a, b, c: integer;
begin
a:=12;
WHILE a>3 DO
begin
a:=a-1;
write (' ',a);
end;
end.