Помогите пожалуйста решить программу !!!!!!!!!! на Pascal ABC. Задача: Найти количество ??етных чисел из 20 целых случайных чисел из любого интервала.

?етных чисел из 20 целых случайных чисел из любого интервала.

Ответы:

Радмила Брусилова

01-12-2017 20:37

Var i,a,b:integer;Begin Randomize(); for i:=1 to 20 do begin a:=Random(0,50); if (a mod 2 = 0) then b:=b+1; end; Writeln(b)End.

Также наши пользователи интересуются:

Текст на тему "сенс нашого життя"Растения с параллельным жилкованмем листьев ,мочковатой корневой системой , стеб?

Картинка с текстом вопроса от пользователя Степа Орел

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Помогите пожалуйста решить программу !!!!!!!!!! на Pascal ABC. Задача: Найти количество ?» от пользователя Степа Орел в разделе Информатика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!