Const
n = 10;
var
x: array[1..n] of integer;
i, k: integer;
begin
Randomize; { иниациализация датчика случайных чисел }
Write('Элементы массива: ');
k := 0; { обнулили счетчик }
for i := 1 to n do { цикл для перебора всех элементов }
begin
x[i] := Random(101); { очередное случайное число в диапазоне [0;100] }
if (x[i] mod 2) = 0 then k := k + 1; { если четное, +1 в счетчик}
Write(x[i]:5)
end;
Writeln;
Writeln('Количество четных чисел в массиве равно ', k)
end.
Тестовое решение:
Элементы массива: 70 19 4 83 79 30 92 97 33 71
Количество четных чисел в массиве равно 4
Назначение помогать людям за зверями . Команды :напоминать когда кормит , играть(может делать все сам) Это задание на воображение подумай)
1. 512 байт = 512*8 бит
Память для хранения одного пикселя = 512*8/(64*64) = 1 бит
Число цветов в палитре = 2^1 = 2
2. При использовании 16777216 цветов для хранения одного пикселя требуется log(2)16777216 = 24 бита = 3 байта. Для хранения изображения размером 1600*1200 пикселей необходимо 1600*1200*3 байт = 1600*1200*3/1024 Кбайт = 5625 Кбайт = 5625/1024 Мбайт ≈ 5,5 Мбайт. Ответ: подойдет видеокарта с памятью 64 Мбайт
3. При использовании 256 цветов для хранения одного пикселя требуется log(2)256 = 8 бит = 1 байт. Для хранения изображения размером 512*512 пикселей необходимо 512*512*1 байт = 512*512/1024 Кбайт = 256 Кбайт
1 Вариант
var a:integer;
begin
writeln('Введите номер месяца: ');
readln(a);
case a of
1:writeln('Зима');
2:writeln('Зима');
3:writeln('Весна');
4:writeln('Весна');
5:writeln('Весна');
6:writeln('Лето');
7:writeln('Лето');
8:writeln('Лето');
9:writeln('Осень');
10:writeln('Осень');
11:writeln('Осень');
12:writeln('Зима');
end;
end.
2 Вариант
var a:integer;
begin
writeln('Введите номер месяца: ');
readln(a);
if (a=12) or (a=1) or (a=2) then writeln('зима');
if (a=3) or (a=4) or (a=5) then writeln('весна');
if (a=6) or (a=7) or (a=8) then writeln('лето');
if (a=9) or (a=10) or (a=11) then writeln('осень');
end.