Paul

Aus ProgrammingWiki

procedure jahr1(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;

jahr1('2012');

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;

jahr2(2012);

Paul

Suche