Var
i, k, x: integer;
begin
k:=0;
for i:=1 to 10 do
begin
readln(x);
if x mod 2 = 0 then //если x четный
inc(k); //увеличиваем k на 1
end;
writeln('Четных: ', k);
writeln('Нечетных: ', 10-k);
<span>end.</span>

0 0

4 года назад

На линейке за отступ первой строки отвечает

Имя-имя [10]

Ползунок.
...............................

0 0

4 года назад

Оцените информационный объем моноаудиофайла длительностью звучания 1 мин. если "глубина"кодирования и частота дискретизации звук

mink90

1канал*60cек*2байт*48.000гц=5,760,000 байт=5625 - кб => около 5 мб

0 0

3 года назад

Какие базы данных называются реляционными?

Jan Novak [7]

Реляционная база данных-это совокупность взаимосвязанных таблиц каждая из которых содержит информацию об объектах определённого типа.

0 0

1 год назад