написать в pascal ABC имя Кристина Пример работы ( имя Влад )
uses graphABC;
begin
moveto(100,100);
LineTo(100,300);
LineTo(150,300);
arc(150,250,50,270,90);
line(100,200,150,200);
arc(130,150,50,270,90);
line(100,100,100,130);
line(100,100,130,100);
moveto(200,300);
lineto(250,100);
lineTo(300,300);
moveto(320,300);
lineto(370,100);
lineTo(420,300);
line(334,250,409,250);
moveto(430,300);
lineto(430,250);
lineto(580,250);
lineto(580,300);
moveto(460,250);
lineto(460,100);
lineto(540,100);
lineto(540,250);
end.
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
var b:=ArrRandom(ReadInteger('n='),-99,99); b.Println;
(var ma,var mb):=(a.Average,b.Average); // средние арифметические
var s:=ma+mb; // их сумма
Writeln('Среднее арифметическое массива а: ',ma);
Writeln('Среднее арифметическое массива b: ',mb);
Writeln('Их сумма: ',s)
end.
Пример
n= 12
9 -55 -14 -60 -90 56 60 -89 -9 18 -37 -29
n= 15
47 -53 4 22 38 -46 -74 -77 -74 -67 -67 -93 73 5 -16
Среднее арифметическое массива а: -20
Среднее арифметическое массива b: -25.2
Их сумма: -45.2
a, b, c, d = list(map(float, input().split()))
print(False if (c == d) else ((a + b + c + d)/(c - d)).is_integer())
Сначала вводим 4 вещественных числа a, b, c, d.
Если c = d, то ответ False - частное будет нехорошим, поскольку в знаменателе будет 0. Если c не равно d, проверяем при встроенной функции is_integer(), что (a + b + c + d)/(c - d) - целое число.
Если a, b, c, d - целые, то float в решении можно заменить на int, а проверку при на проверку, что остаток от деления равен нулю, (a + b + c + d) % (c - d) == 0.