Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Var k,n:integer;
begin;
repeat
k:=k+1;
n:=random(10,99);
until n mod 5=0;
writeln(Число:,n);
writeln(Попытки:,k);
end.