Program n1;
var a: array[1..18] of integer;
i,k: integer;
begin
randomize;
k:=0;
writeln('исходный массив:');
for i:=1 to 18 do
begin
a[i]:=random(87)-4;
write(a[i],' ');
if a[i] mod 2=0 then k:=k+1;
end;
writeln;
write('k четн: ',k);
end.
Держи ответ тебе ) надеюсь все понятно ) если что спрашивай )
256 цветов - 8-ми битная шкала цветности
8 бит на 1 точку, значит <span>120 байт = 960 бит. </span>
<span>960 бит/8 бит = 120 точек.</span>
Диаграмма и условное форматирование является полезным инструментом для визуализации числовых данных.
<em>// PascalABC.NET 3.2, сборка 1383 от 09.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<em>№1</em>
begin
var a,b,u:real;
Write('Введите длины сторон и угол между ними в градусах: ');
Read(a,b,u);
Writeln('Длина третьей стороны ',sqrt(a*a+b*b-2*a*b*cos(degtorad(u))):0:3)
end.
<u>Пример</u>
Введите длины сторон и угол между ними в градусах: 10.3 15 47.4
Длина третьей стороны 11.042
<em>№2</em>
begin
Writeln(ReadSeqInteger(3).Any(i->i.IsEven)?'Да':'Нет')
end.
<u>Примеры</u>
41 53 107
Нет
159 -14 17
Да