Предмет: Информатика,
автор: Тальони
Помогите пожалуйста,срочно!
1. Составьте программу,по которой компьютер десять раз запросит ввод любых чисел и в результате выведет среднее арифметическое значение введенных чисел (массив не использовать).Сделайте три варианты программ,используя операторы цикла While,Repeat и For.
2. Составьте программу,по которой компьютер десять раз запросит ввод любых чисел и в результате сообщит,сколько среди введенных чисел четных и сколько нечетных.
Заранее спасибо!
Ответы
Автор ответа:
16
Тут абзацы не отображаются, напишу в комментах
2. const N:=10;
var i,x,chet,nechet: integer;
begin
chet:=0;
nechet:=0;
writeln("Введите ", N, " чисел.");
for i:=1 to N do begin
readln(x);
if x mod 2 <> 0 then
nechet:=nechet+1
else
chet:=chet+1;
end;
writeln("Чётных чисел: ", chet);
writeln("Нечетных чисел: ", nechet);
end.
var i,x,chet,nechet: integer;
begin
chet:=0;
nechet:=0;
writeln("Введите ", N, " чисел.");
for i:=1 to N do begin
readln(x);
if x mod 2 <> 0 then
nechet:=nechet+1
else
chet:=chet+1;
end;
writeln("Чётных чисел: ", chet);
writeln("Нечетных чисел: ", nechet);
end.
Спасибо огромное!
Похожие вопросы
Предмет: Русский язык,
автор: метеоррр
Предмет: Русский язык,
автор: 89128561785
Предмет: Русский язык,
автор: prachukpetr
Предмет: Математика,
автор: lana5951
Предмет: Алгебра,
автор: danonchik2006p4wtrj
const N:=10;
var x,i: integer;
s: real;
begin
i:=0;
s:=0;
writeln("Введите числа");
while (i<N) do
readln(x);
s:=s+x;
i:=i+1;
end;
writeln(s/N);
end.