var x,y:integer; begin randomize; for x:=1 to 6 do; x:=random(6)+1 for y:= 10 to 20; y:=random(20)+10 writeln('ievadiet skaitli'); writeln (Sqr(x):0); Writeln (Sqrt(x):0); writeln('rezultas',x,y,') ; readln(x,y); end; end.
vismaz četras lietas ir aplamas:
sākuma cikli - nav 6 un 10 skaitļi jāģenerē, bet divi;
paši gadījumskaitļi y:=random(20)+10 dos skaitļus no 10 līdz 30, ne kā prasīts;
nekāds x nav jāprasa;
jāizvada skaitļi un to kvadrātā no pirmā ģenerētā līdz otrajam
vismaz četras lietas ir aplamas:
sākuma cikli - nav 6 un 10 skaitļi jāģenerē, bet divi;
paši gadījumskaitļi y:=random(20)+10 dos skaitļus no 10 līdz 30, ne kā prasīts;
nekāds x nav jāprasa;
jāizvada skaitļi un to kvadrātā no pirmā ģenerētā līdz otrajam
pirms 11 gadiem
500
RSS barotne
šadi vajadzetu but program viens; var x,y:integer; begin randomize; for x:=1 to 6 do; x:=random(6)+1 for y:= 10 to 20; y:=random(20)+10 writeln('ievadiet skaitli'); writeln (Sqr(x):0); Writeln (Sqrt(x):0); writeln('rezultas',x,y,'); readln(x,y); end; end.
— gavdfgd, pirms 11 gadiem