Паскаль.
Немного не понятно: от 1 до 10 это относится только к нечетным числам или ко всем? Ну напишу программу которая просто все числа вычисляет, если сама не сможешь поставить условие ограничения, то сообщи точное условие задачи и напиши мне в личку
program jjj;
var a: array [1..10] of integer; i,summa,proizv:integer;
begin
for i:=1 to 10 do begin
Writeln('напишите элемент массива номер ',i); read(a[i]);
end;
For i:=1 to 10 do begin
if a[i] mod 2=0 then summa:=summa+a[i] else
proizv:=proizv*a[i];
end;
Writeln(summa,' ',proizv); readln;
end.
Т.к. требуется использовать цикл until, то значит требуется код на языке Паскаль.
1) цикл for
program p_for
var
p: real;
i, n: integer;
begin
readln(n);
p := 1;//начальное значение
for i := 1 to n do
p := p * i;
writeln(p);
end.
2) цикл while
program p_while
var
p: real;
i, n: integer;
begin
readln(n);
i := 1;
p := 1;//начальное значение
while i <= n do
begin
p := p * i;
i := i + 1;
end;
writeln(p);
end.
3) цикл until
program p_until
var
p: real;
i, n: integer;
begin
readln(n);
i := 1;
p := 1;//начальное значение
repeat
p := p * i;
i := i + 1;
until i > n;
writeln(p);
end.
Объяснение:
р1, р2, р3, к1,к2,к3 - 0
1) р1+к1 > ( р2, р3,к2,к3 - р1,к1)
2) к1 < (р2, р3,к2,к3,к1 - р1)
3) р2, р3 > (к2,к3,к1 - р1,р2, р3)
4) р1 < (к2,к3,к1,р1 - р2, р3)
5) к2,к3> (к1,р1 - р2, р3,к2,к3)
6) р2< (к1,р1,р2 - р3,к2,к3)
7) к1,р1> (р2 - р3,к2,к3,к1,р1)
8) р3< (р2,р3 - к2,к3,к1,р1)
9) р2,р3 > (р1, р2, р3, к1,к2,к3 )