правило шифрования - слова написаны справа налево, т.е. наоборот.
Ответ дал: Гость
program xxx;
var i, n, s : integer;
begin
write('введите число n=');
readln(n);
s: =0;
i: =2;
while i< =n do
begin
s: =s+i;
i: =i+2
end;
write('сумма четных чисел =', s);
readln
end.
Ответ дал: Гость
varb: array [1..8] of integer; r,q: integer; begin for r: =1 to 8 do begin q: =0; read(b[r]); end; for r: =1 to 8 do if b[r] mod 2=1 then q: =q+b[r]; writeln; writeln('сумма нечетных чисел равна ',q); end.
Популярные вопросы