http://speedy.sh/XYZYs/shared-exp.exe
Albo poprostu kod źródłowy :)
uses crt;
var
a:integer;
begin
Writeln('Wpisz poziom: ');
readln(a);
Writeln('Najmniejszy level jaki zmiesci sie z Toba w shared to: ',a*2 / 3:0:0);
writeln('Najwiekszy level jaki smiesci sie z Toba w shared to: ',a*3 / 2:0:0);
readln;
end.
var
a:integer;
begin
Writeln('Wpisz poziom: ');
readln(a);
Writeln('Najmniejszy level jaki zmiesci sie z Toba w shared to: ',a*2 / 3:0:0);
writeln('Najwiekszy level jaki smiesci sie z Toba w shared to: ',a*3 / 2:0:0);
readln;
end.
Zakładki