if pr then writeln (k, '- число не простое') else writeln (k, '- число простое');
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.
Ответ дал: Гость
ответ 4: значок @ в адресе электронной почты употребляется всего лишь один раз (насколько мне известно)
Популярные вопросы