Vytvorené: 02. 04. 2014 Tlačiť
program Zlocinci_a_diamanty;
var
d:integer;
x,y,z,n:real;
begin
repeat
writeln;
d:=d+1;
writeln(d);
x:=(3*d)+1;
writeln (x:5:2);
y:=(x/2*3)+1;
writeln (y:5:2);
z:=(y/2*3)+1;
writeln (z:5:2);
n:=(z/2*3)+1;
writeln (n:5:2);
until (n)=int(n);
readln;
end.
program Diamanty;
var
a,j: integer;
b: array [1..9] of integer;
i: longword;
begin
writeln('Napis pocet zlocincov, medzi ktorych sa budu delit diamanty (2-9).');
readln(a);
writeln;
if a>9 then begin
writeln('Maximalny pocet zlocincov je 9!');
readln;
halt;
end;
if a=1 then begin
writeln('Jeden zlocinec si vezme vsetky diamanty, nech ich ulupi akokolvek vela.');
readln;
halt;
end;
if a=0 then begin
writeln('Tolkoto zlocincov neulupi ani jeden diamant.');
readln;
halt;
end;
for i:= 1 to 4294967295 do
begin
b[1]:=(a*i)+1;
for j:=2 to a+1 do
begin
if (b[j-1] mod (a-1)<>0) then break;
if (b[j-1] mod (a-1)=0) then begin b[j]:=((b[j-1] div (a-1))*a)+1;
if j=a+1 then begin
writeln('pocet diamantov v poslednej kope je ',i,'.');
writeln('pocet vsetkych diamantov je ',b[j],'.');
readln;
halt;
end;
end;
end;
end;
end.
![]() |
· Simulácie z fyziky· O Slovensku po slovensky· Slovenské kroje· Kurz národopisu· Diela maliarov· Kontrolné otázky, Domáce úlohy, E-testy - Priemysel· Odborné obrázkové slovníky· Poradňa žiadaného učiteľa· Rýchlokurz Angličtiny. Rozprávky (v mp3)· PREHĽADY (PRIBUDLO, ČO JE NOVÉ?)Seriály:· História sveta (1÷6)· História Slovenska (1÷5)· História módy (1÷5).
Členstvo na portáli
Poznámka pre autora
Copyright © 2013-2024 Wesline, s.r.o. Všetky práva vyhradené. Mapa stránky ako tabuľka | Kurzy | Prehľady |