1) var i:integer; begin randomize; i:=random(11); writeln('vipalo chislo: ',i) ;if (i = 7) then writeln('POBEDA!') else writeln('Pobrobyite eshe!'); end.
2) var i_1,i_2,i_3:integer; begin randomize; i_1:=random(11); i_2:=random(11); i_3:=random(11); writeln('vipalo chislа: ',i_1,' ',i_2,' ',i_3);
if (i_1 = i_2)and(i_2 = i_3) then writeln('Winer!') else writeln('Sorry,try again!') end. 3) var i, k, z: integer; begin randomize; k := 0; for i := 1 to 10 do begin z := random(101); write(' ', z); if odd(z) then k := k + 1; end; writeln; writeln('Kolichestvo chetnysh: ', k); end.
var
i:integer;
begin
randomize;
i:=random(11);
writeln('vipalo chislo: ',i)
;if (i = 7) then writeln('POBEDA!') else writeln('Pobrobyite eshe!');
end.
2)
var
i_1,i_2,i_3:integer;
begin
randomize;
i_1:=random(11);
i_2:=random(11);
i_3:=random(11);
writeln('vipalo chislа: ',i_1,' ',i_2,' ',i_3);
if (i_1 = i_2)and(i_2 = i_3) then writeln('Winer!') else writeln('Sorry,try again!')
end.
3) var i, k, z: integer;
begin
randomize;
k := 0;
for i := 1 to 10 do
begin
z := random(101);
write(' ', z);
if odd(z) then k := k + 1;
end;
writeln;
writeln('Kolichestvo chetnysh: ', k);
end.