C1 = input("Номер столбца 1-й клетки: ")
r1 = input("Номер строки 1-й клетки: ")
c2 = input("Номер столбца 2-й клетки: ")
r2 = input("Номер строки 2-й клетки: ")
if (c1 == c2) or (r1 == r2):
print ("YES")
else:
print ("NO")
Во автобус зашли люди контролёр встал и начал расчитывать людей чтобы оплатили людей . следующая страница метро, люди вышли другие зашли и начали ращитываться .
var a:Integer;
begin
readln( a );
write( (a div 1000) * ((a div 100) mod 10) + ((a div 10) mod 10) * (a mod 10) );
end.
Пояснение:
a - 4-значное число, тогда:
a div 1000 - первая цифра числа.
(a div 100) mod 10 - вторая цифра числа.
(a div 10) mod 10 - третья цифра числа.
a mod 10 - четвёртая цифра числа.
//Pascal ABC.NET 3.1 сборка 1256
Var
x,y:real;
begin
readln(x);
if x>0 then y:=5*x else y:=x*x;
writeln(y);
end.
Пример ввода:
-1.1
Пример вывода:
1.21
В ответе В программе Паскаль АВС
A = 335; B = 129