Skip to content

Instantly share code, notes, and snippets.

@Kanol

Kanol/homework.pas

Created October 19, 2016 18:13
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save Kanol/60c9822252af7c846087bf9ec17e9ab4 to your computer and use it in GitHub Desktop.
Save Kanol/60c9822252af7c846087bf9ec17e9ab4 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
homework.pas
program n7;
var num, mnj:integer;
begin
mnj:=1;
while(num<100000) do begin
num:=(mnj*133)-8;
mnj:=mnj+1;
if num>9999 then
if num mod 134 = 111 then
writeln(num);
end;
end.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment