Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var i,s: integer;
{1}begin
s: =0;
for i: =1 to 1000 do
if i mod 2=0 then s: =s+i;
end.
{2}begin
if odd(i) then s: =s+i;
{3}a: array[1..500] of integer;
n: integer;
if odd(i) then a[i]: =i;
n: =i;
for i: =1 to n do
s: =a[i]+s;
program pr;
var i: integer;
mas: array[1..7]of integer;
begin
for i: =1 to 7 do
writeln ('введите температуру ', i ,' сентября');
readln (mas[i]);
end;
for i: =1 to 7 do writeln (i, ' сентября температура была ' mas[i]);
readln;
Популярные вопросы