Pascal c while, do, repeat

Pascal c while, do, repeat
Категория: Информатика 3 года назад
На вопрос 3 года назад
Арина Емцева
Как-то не помню про цикл do, но с циклом while и repeat (хотя лучше использовать цикл со счетчиком for) будет выглядеть так:
//с циклом while
var
  a, n, neud, i, ok: integer;
begin
  readln(n);
  i := 1;
  while i <= n do
  begin
    readln(a);
    if a < 5 then neud := neud + 1;
    if a = 10 then ok := ok + 1;  
    i:=i+1;
  end;
  writeln(neud);
  if ok > 0 then writeln('YES') else writeln('NO');
end.
// С циклом repeat
var
  a, n, neud, i, ok: integer;
begin
  readln(n);
  i := 1;
  repeat
    readln(a);
    if a < 5 then neud := neud + 1;
    if a = 10 then ok := ok + 1;  
    i:=i+1;
  until i>n;
  writeln(neud);
  if ok > 0 then writeln('YES') else writeln('NO');
end.
// с циклом for
var
  a, n, neud, i, ok: integer;
begin
  readln(n);
  for i:=1 to n do begin
    readln(a);
    if a < 5 then neud := neud + 1;
    if a = 10 then ok := ok + 1;  
  end;
  writeln(neud);
  if ok > 0 then writeln('YES') else writeln('NO');
end.
Ответ получен 3 года назад
Всеволод Михайлов

Пожалуйста зарегистрируйтесь/войдите для ответа на вопрос.  Нажмите для входа

Войти на сайт