написать программу получения целых случайных чисел из интервала (-3; 70) признак окончания-полученное число 5. определить сколько получено чисел которые делятся на 3. сделайте пожалуйста в кумире)
алг нач цел а,счетчик; а:=irand(-3,70); счетчик:=0; если mod(а,3)=0 то счетчик:=счетчик+1; все нц пока а<>5 а:=irand(-3,70); если mod(а,3)=0 то счетчик:=счетчик+1; все кц вывод счетчик; кон
2 votes Thanks 1
grigorijsvetov
алг нач цел а,счетчик; а:=irand(-3,70); счетчик:=0; если (mod(а,10)=3) и а<100 и а>9 то счетчик:=счетчик+1; все нц пока а<>5 а:=irand(0,170); если (mod(а,10)=3) и а<100 и а>9 то счетчик:=счетчик+1; все кц вывод счетчик; кон
grigorijsvetov
Опять же. Всё для счета только двузначных, заканчивающихся на 3
Сени2014
написать программу получения целых случайных чисел из интервала 0 170 признак получения полученное число 10 определить сколько получено двузначных чисел которые заканчиваются на 3
grigorijsvetov
да. последний высланный код это и делает.
Answers & Comments
алг
нач
цел а,счетчик;
а:=irand(-3,70);
счетчик:=0;
если mod(а,3)=0
то счетчик:=счетчик+1;
все
нц пока а<>5
а:=irand(-3,70);
если mod(а,3)=0
то счетчик:=счетчик+1;
все
кц
вывод счетчик;
кон
нач
цел а,счетчик;
а:=irand(-3,70);
счетчик:=0;
если (mod(а,10)=3) и а<100 и а>9
то счетчик:=счетчик+1;
все
нц пока а<>5
а:=irand(0,170);
если (mod(а,10)=3) и а<100 и а>9
то счетчик:=счетчик+1;
все
кц
вывод счетчик;
кон