составьте программу ,которая находит сумму четных чисел и произведение нечётных чисел в диапазоне от 1 до 10
Ответы на вопрос
Ответил clinteastwood2
0
const N = 10;
var a, S1, S2: Integer;
i, Q1, Q2: Byte;
begin
S1 := 0; Q1 := 0;
S2 := 0; Q2 := 0;
writeln('Введите ', N, ' чисел:');
for i := 1 to N do
begin
read(a);
if a < 0 then
begin
S1 := S1 + a;
inc(Q1)
end;
if a > 0 then
begin
S2 := S2 + a;
inc(Q2)
end;
end;
writeln;
if Q1 > 0 then
begin
writeln('Сумма отрицательных чисел: ', S1);
writeln('Количество отрицательных: ', Q1)
end
else
writeln('Отрицательных нет');
if Q2 > 0 then
begin
writeln('Сумма положительных чисел: ', S2);
writeln('Количество положительных: ', Q2)
end
else
writeln('Положительных нет')
end.
var a, S1, S2: Integer;
i, Q1, Q2: Byte;
begin
S1 := 0; Q1 := 0;
S2 := 0; Q2 := 0;
writeln('Введите ', N, ' чисел:');
for i := 1 to N do
begin
read(a);
if a < 0 then
begin
S1 := S1 + a;
inc(Q1)
end;
if a > 0 then
begin
S2 := S2 + a;
inc(Q2)
end;
end;
writeln;
if Q1 > 0 then
begin
writeln('Сумма отрицательных чисел: ', S1);
writeln('Количество отрицательных: ', Q1)
end
else
writeln('Отрицательных нет');
if Q2 > 0 then
begin
writeln('Сумма положительных чисел: ', S2);
writeln('Количество положительных: ', Q2)
end
else
writeln('Положительных нет')
end.
Ответил clinteastwood2
0
упс, не то
Ответил clinteastwood2
0
вот верный ответ:
Ответил clinteastwood2
0
var
i,s,p:integer;
begin
p:=1; s:=0;
for i:=1 to 10 do
begin
if i mod 2 = 0 then
s:=s+i else p:=p*i;
end;
readln(s,' ',p);
end.
i,s,p:integer;
begin
p:=1; s:=0;
for i:=1 to 10 do
begin
if i mod 2 = 0 then
s:=s+i else p:=p*i;
end;
readln(s,' ',p);
end.
Новые вопросы
Физика,
2 года назад
География,
2 года назад
Математика,
8 лет назад
Математика,
8 лет назад
Литература,
9 лет назад