Программа генерирует случайное двузначное число до тех пор ,пока не найдется число кратное 5. после чего на экран выводится количество попыток генерации
Программа генерирует случайное двузначное число до тех пор ,пока не найдется число кратное 5. после чего на экран выводится количество попыток генерации
Гость
Ответ(ы) на вопрос:
Гостьvar k,n:integer;
begin;
repeat
k:=k+1;
n:=random(10,99);
until n mod 5=0;
writeln('Число:',n);
writeln('Попытки:',k);
end.
Не нашли ответ?
Похожие вопросы