Uzdevuma nosacījumi dīvaini, bet idejiski, švaki atceroties pascal sintaksi, tā:
while rand<>30 do
begin
//šis visticamāk dos intervālu 0...30 būs jādomā kā pielāgot
rand := Random(31);
if rand > max
then max:rand;
writeln(rand);
end;
writeln (max);
while rand<>30 do
begin
//šis visticamāk dos intervālu 0...30 būs jādomā kā pielāgot
rand := Random(31);
if rand > max
then max:rand;
writeln(rand);
end;
writeln (max);
pirms 10 gadiem
RSS barotne
500