Int a:array[1..4, 1..4] of integer;
i, j, k: integer;
begin
k:=0;
for i:=1 to 4 do
for j:=1 to 4 do begin
readln(a[i, j]);
If (i=j) and (a[i] < 0) and (a[i] mod 2 = 0) then
k:= k+1;
end;
writeln(k);
end.
Из компьютерной графики нам известно, что разрешение - это велечина, опредеющая кол-во точек(елементов рострового изображения) на еденицу площади или длины.
Светлый,яркий,огромный,тусклый,широкий,близкий
Вообще это больше математика
х - входные данные
у - выходные данные
y = f(x)
немного помучившись с более простыми вариантами, предполагаем что наша функция линейна
y = f(x) = ax+b
потому решаем систему для первых двух пар
15 = 2a+b
27 = 4а+b
получаем a = 6, b=3 f(x) = 6x+3
f(10) = 6*10+3 = 63 - ура, подошло для третей пары, значит это верный ответ
Ответ y = 6x+3
<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
Да
