составить программу вывода N случайных целых чисел диапазона от 0 до 50. определить сколько среди них четных, а сколько нечетных
Ответы
Ответ дал:
0
program gt;
var a,l,k,n,i:integer;
begin
read(N);
randomize;
k:=0;
l:=0;
for i:=1 to n do
begin
a:=random(50);
if(a mod 2=0)then k:=k+1 else l:=l+1;
write(a,' ');
end;
writeln;
writeln('четные=',k);
writeln('не четные=',l);
end.
var a,l,k,n,i:integer;
begin
read(N);
randomize;
k:=0;
l:=0;
for i:=1 to n do
begin
a:=random(50);
if(a mod 2=0)then k:=k+1 else l:=l+1;
write(a,' ');
end;
writeln;
writeln('четные=',k);
writeln('не четные=',l);
end.
Ответ дал:
0
тебе надо сначала вводит любое число(не больше 1000) а потом компьютер выводит такое же кол-во случайно выбранных чисел на отрезке от 0 до 50 а потом выводит кол-во чётных и не чётных чисел среди выведенных чисел
Ответ дал:
0
да
Ответ дал:
0
благодарю!!
Ответ дал:
0
ну тогда удачи!
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад