Срочно ответьте. 20 естественных чисел формируются через генератор случайных чисел.
Безотлагательно ответьте. 20 естественных чисел формируются через генератор случайных чисел. Найдите сумму четных чисел больших 6. составить алгоритм и программку
Задать свой вопрос1 ответ
Эвелина Загулинникова
Var min,max,i,s,n:integer;
begin
randomize;
write('Введите спектр: '); readln(min,max);
if(mingt;max) then begin
max:=max+min;
min:=max-min;
max:=max-min;
end;
write('Введите количество чисел: '); readln(n);
for i:=1 to n do begin
n:= min + random(max-min);
write(i,'-е число: ', n);
if((ngt;6) and (not odd(n))) then begin
s:=s+n;
writeln(' (Четное и gt;6, сумма одинакова: ', s,')')
end
else begin write(' (Не четное');
if(ngt;6) then writeln(', но gt;6)')
else writeln(' и lt;6)');
end;
end;
write('Сумма четных чисел gt;6 одинакова: ',s);
end.
begin
randomize;
write('Введите спектр: '); readln(min,max);
if(mingt;max) then begin
max:=max+min;
min:=max-min;
max:=max-min;
end;
write('Введите количество чисел: '); readln(n);
for i:=1 to n do begin
n:= min + random(max-min);
write(i,'-е число: ', n);
if((ngt;6) and (not odd(n))) then begin
s:=s+n;
writeln(' (Четное и gt;6, сумма одинакова: ', s,')')
end
else begin write(' (Не четное');
if(ngt;6) then writeln(', но gt;6)')
else writeln(' и lt;6)');
end;
end;
write('Сумма четных чисел gt;6 одинакова: ',s);
end.
Наталья
Вот черт
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Облако тегов