Программа генерирует случайное двузначное число до тех пор, пока не найдется число кратное 5. после чего на экран выводится количество попыток генерации

Question

Корнилий

7 января, 04:27

+5

Ответы (1)

Знаете ответ?

Флора · Answer 1

Var k, n:integer;

begin;

repeat

k:=k+1;

n:=random (10,99) ;

until n mod 5=0;

writeln ('Число:', n) ;

writeln ('Попытки:', k) ;

end.