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

Question

Марленка

19 июля, 11:48

+3

Ответы (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.