Var a:array[1..5] of integer; p:integer; begin for i:=1 to 5 do begin a[i]:=random(10)+1; write(a[i]:3); end; p:=a[2]; a[2]:=a[3]; a[3]:=p; for i:=1 to 5 do begin write(a[i]:3); end; end.
// PascalABC.NET 3.2, сборка 1381 от 04.02.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=ReadArrReal('Введите 4 числа:',4); if Frac(a.Sum/(a[3]-a[2]))=0 then Writeln('Целый результат') else Writeln('Нецелый результат') end.
Примеры Введите 4 числа: 7.2 1.8 25.5 5.5 Целый результат
Введите 4 числа: 36 18.6 12 5 Нецелый результат
Объяснения: Первый (после begin) оператор объявляет массив из четырех вещественных элементов и заполняет его вводимыми с клавиатуры данными. Второй делает остальное: вычисляет результат, проверяет, целочисленный ли он и выводит соответствующее сообщение на монитор.
Python 3.5: 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.
begin
for i:=1 to 5 do
begin
a[i]:=random(10)+1;
write(a[i]:3);
end;
p:=a[2];
a[2]:=a[3];
a[3]:=p;
for i:=1 to 5 do
begin
write(a[i]:3);
end;
end.