Составить программу в паскале1)Игровой автомат выдает целые числа от 0 до 10 если...

Question

Составить программу в паскале
1)Игровой автомат выдает целые числа от 0 до 10 если выпадает 7, то выйгрыш.
2)Игровой автомат получает 3 случайных числа от 0 до 10, если числа совпадут, то выйгрыш
3)Вывести на экран 10 случайных чисел от 0 до 100, и определить сколько из них чётных

Очень надо к завтрашнему дню, заранее спасибо.

Comments

Это условия к одной программе или к 3 разным?

---

К трём разным

Answer 1

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. 

Comments

Спасибо огромное.