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

Составить программу в паскале 1)Игровой автомат выдает целые числа от 0 до 10 если выпадает 7, то выйгрыш. 2)Игровой автомат получает 3 случайных числа от 0 до 10, если числа совпадут, то выйгрыш 3)Вывести на экран 10 случайных чисел от 0 до 100, и определить сколько из них чётных Очень надо к завтрашнему дню, заранее спасибо.
Гость
Ответ(ы) на вопрос:
Гость
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. 
Не нашли ответ?
Ответить на вопрос
Похожие вопросы