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