Program z1;
const N=10;
var
i,k:integer;
a:array [1..N] of integer;
begin
for i:=1 to N do
readln (a [i]);
for i:=1 to N do
begin
if (a [i] mod 2 = 0) then
write (a [i]);
end;
for k:=10 downto 1 do
begin
if (a [k] mod 2 = 1) then
write (a [k]);
end;
end.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
program Задача;
begin
var x,y:integer;
Read(x,y);
if (x>0) and (y>0) then
Writeln('Точка принадлежит 1-ой четверти КП')
else
Writeln('Точка не принадлежит 1-ой четверти КП')
end.
За покупку от 2000 и больше покупатель получает бесплатную доставку
Не можешь выполнить код, что ли? Тупо переписываешь его на JS и засовываешь в адресную строку:
javascript:var B=[];for(var i=0;i<13;i++)B.push([]);B[1][1]=2;for(var k=2;k<=12;k++)for(var n=1;n<=k;n++){B[k][n]=n*k-B[k-1][n];B[n][k]=B[k][n];}var c=0;for(var k=1;k<13;k++)for(var n=1;n<13;n++)if(B[k][n]%2==0)c++;alert(c);
Результат на экране.
<span>#include <iostream>
using namespace std;
int main() {
int x1, x2, y1, y2;
cin >> x1 >> y1 >> x2 >> y2;
if ((x1 > 0 && y1 > 0) && (x2 > 0 && y2 > 0)) {
cout << "YES";
} else if ((x1 < 0 && y1 < 0) && (x2 < 0 && y2 < 0)) {
cout << "YES";
} else if ((x1 > 0 && y1 < 0) && (x2 > 0 && y2 < 0)) {
cout << "YES";
} else if ((x1 < 0 && y1 > 0) && (x2 < 0 && y2 > 0)) {
cout << "YES";
} else {
cout << "NO";
}
<span>}</span></span>