Помогите пожалуйста решить программу !!!!!!!!!! на Pascal ABC.
Задача:
Найти количество четных чисел из 20 целых случайных чисел из любого интервала.
NeverMore73:
числа забивать фунцией random? или в ручную с клавиатуры ?
random
ну диапазон интервала и сам задать сможешь
Ответы
Ответ дал:
1
var a,k,i:integer;
begin
randomize;
k:=0;
for i:=1 to 20 do begin
a:=-200+random(401);
write(a, ' ');
if a mod 2 = 0 then k:=k+1;
end;
writeln;
writeln(k);
end.
begin
randomize;
k:=0;
for i:=1 to 20 do begin
a:=-200+random(401);
write(a, ' ');
if a mod 2 = 0 then k:=k+1;
end;
writeln;
writeln(k);
end.
можно было ещ через функцию odd но я не помню как её прописывать
obb*
odd(a)
c mod 2 наглядней просто
программа идет с вводом с клавиатуры
мне надо с random и randomize что бы она сама числа придумывла
Ответ дал:
3
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.
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.
Приложения:
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
8 лет назад