Question

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

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.