PMG/Kurs 1214/eigene Übungen/Paul

Wiki-Quelltext dieser Seite.

procedure jahr(a:string);
var jahr:integer;
begin
if(a[3] = '0') and (a[4] = '0')then
	begin
		jahr:= strtoint(a);
		if(jahr mod(400)  0)then writeln(jahr,' war/ist kein Schaltjahr.')
		else writeln(jahr,' war/ist ein Schaltjahr.');
	end
else
	begin
		jahr:=strtoint(a);	
		if(jahr mod(4) = 0)then writeln(jahr,' war/ist ein Schaltjahr.')
		else writeln(Jahr,' war/ist kein Schaltjahr.');
	end;
end;


procedure jahr2(a:integer);
var jahr3:string;
begin
jahr3:=inttostr(a);
if(jahr3[3] = '0') and (jahr3[4] = '0')then
	begin
		if(a mod(400)  0)then writeln(a,' war/ist kein Schaltjahr.')
		else writeln(a,' war/ist ein Schaltjahr.');
	end
else
	begin
	
		if(a mod(4) = 0)then writeln(a,' war/ist ein Schaltjahr.')
		else writeln(a,' war/ist kein Schaltjahr.');
	end;

end;