1)18<A
2)18<=A
3)A<18
4)A<=18
5)A mod 4 = 0
6)A<=55
#include <iostream>
using namespace std;
int main()
{
double x1, x2, y1, y2;
cin >> x1 >> y1;
cin >> x2 >> y2;
cout << (x1*x2 > 0 && y1*y2 > 0 ? "Yes" : "No");
}
<em>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</em>
<em>// Внимание! Если программа не работает, обновите её версию!</em>
begin
Writeln(ReadReal('a=')*4,' - периметр')
end.
<u>Пример</u>
a= 12.7
50.8 - периметр
var
a, b : real;
begin
read (a, b);
write (trunc (a * b));
end.
var
a : integer;
begin
read (a);
write (frac (a / 10));
end.
г)
var
a, b : real;
begin
read (a, b);
write (round (a + b));
end.
d)
var
a, b : integer;
begin
read (a, b);
write (a div b);
end.
e)
var
a : integer;
begin
read (a);
write (a div 1000);
end.
ж)
var
a : longint;
begin
read (a);
write (a div 24 + 1);
end.
з)
var
k : integer;
begin
read (k);
write (k div 7 + 1);
end.
и)
var
k : integer;
begin
read (k);
write (k div 60, ':', k mod 60);
end.