Программа на пайтоне. не могу найти у себя ошибку, из за которой происходит неверный вывод. (огэ 20.2): - id162485920230421 от лиза2630 21.04.2023 10:59

Question

Информатика: Программа на пайтоне. не могу найти у себя ошибку, из за которой происходит неверный вывод. (огэ 20.2): на­пи­ши­те программу, ко­то­рая в по­сле­до­ва­тель­но­сти на­ту­раль­ных чисел опре­де­ля­ет мак­си­маль­ное число, крат­ное 5. про­грам­ма по­лу­ча­ет на вход ко­ли­че­ство чисел в последовательности, а затем сами числа. в по­сле­до­ва­тель­но­сти все­гда име­ет­ся число, крат­ное 5. ко­ли­че­ство чисел не пре­вы­ша­ет 1000. введённые числа не пре­вы­ша­ют 30 000. про­грам­ма долж­на вы­ве­сти

лиза2630 · Accepted Answer

{$R+,S+,Q+} uses  SysUtils; const R=1000;type Mas= array [0..R] of integer;var  a: Mas;  en,n: integer;  x,y,z,q,w: char;function push(n: integer): string;begin  a[en]:=n;  en:=en+1;  push:= ok ;end;function pop(): integer;begin  en:=en-1;  pop:=a[en];  a[en]:=0;end;function back(): integer;begin  back:=a[en-1];end;function size(): integer;begin  size:=en;end;function clear(): string;begin  en:=0;  clear:= ok ;end;function exit(): string;begin  exit:= bye ;end;begin  en:=0;  repeat    read(x); ...

MOGZ ответил