From 1fcc9d32887fc585c2cf4f948291a7fbac053e48 Mon Sep 17 00:00:00 2001
From: materus <materus@podkos.pl>
Date: Sun, 17 Nov 2024 21:14:33 +0100
Subject: [PATCH] =?UTF-8?q?Rok=20przest=C4=99pny=20-=20Pascal?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 .../zad2_rok_przestepny.pas                   | 37 +++++++++++++++++++
 1 file changed, 37 insertions(+)
 create mode 100644 Algorytmy i struktury danych/Pascal/AiSD5_C2 Ćwiczenie 2/zad2_rok_przestepny.pas

diff --git a/Algorytmy i struktury danych/Pascal/AiSD5_C2 Ćwiczenie 2/zad2_rok_przestepny.pas b/Algorytmy i struktury danych/Pascal/AiSD5_C2 Ćwiczenie 2/zad2_rok_przestepny.pas
new file mode 100644
index 0000000..236c229
--- /dev/null
+++ b/Algorytmy i struktury danych/Pascal/AiSD5_C2 Ćwiczenie 2/zad2_rok_przestepny.pas	
@@ -0,0 +1,37 @@
+program rok_przestepny;
+
+function Czytaj_rok: Integer;
+var
+   rok: Integer; 
+begin
+   write('Podaj rok: ');
+   readln(rok);
+   Czytaj_rok:=rok;
+end;
+
+function Czy_przestepny(rok :Integer ): Boolean;
+begin
+   Czy_przestepny:= ((rok mod 4 = 0) AND (NOT (rok mod 100 = 0)) ) OR (rok mod 400 = 0); 
+end;
+
+procedure Wypisz_czy_przestepny(rok : Integer; przestepny: Boolean );
+begin
+  if przestepny then
+     writeln('Rok ', rok, ' jest przestepny')
+  else
+     writeln('Rok ', rok, ' nie jest przestepny');
+end;
+
+procedure Glowna_procedura;
+var
+   rok        : Integer;
+   przestepny : Boolean;
+begin
+   rok:= Czytaj_rok();
+   przestepny:= Czy_przestepny(rok);
+   Wypisz_czy_przestepny(rok,przestepny);
+end;
+
+begin
+   Glowna_procedura()
+end.