Помогите пожалуйста решить программу !!!!!!!!!! на Pascal ABC.
Задача:
Найти количество четных чисел из 20 целых случайных чисел из любого интервала.
Задача:
Найти количество четных чисел из 20 целых случайных чисел из любого интервала.
More Questions From This User See All
Answers & Comments
Verified answer
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.