const
AOper: array [0..3] of string = ('+', '-', '*', '/');
var
a, b, Oper: Integer;
r: Real;
begin
Randomize; // инициализация датчика случайных чисел
a := Random (1001);
b := Random (1001);
Oper := Random (4);
case Oper of
0: r := a + b;
1: r := a - b;
2: r := a * b;
3:if b <> 0 then begin
r := a / b;
end else begin
WriteLn ('Произошла ошибка при делении на ноль');
Exit;
end
else r := -1;
end;
WriteLn (a);
WriteLn (b);
WriteLn (Aoper [Oper]);
if (r >= 0) and (r - Trunc (r) = 0) then begin // если в результате получилось положительное целое число
WriteLn ('yes');
WriteLn (r :6 :0);
end else
WriteLn (' no');
ReadLn;
end.
Объяснение:
r - Trunc (r) // это выделение дробной части числа
Программа:
def f(x):
print("Вес на Луне:")
for i in range(1,16):
y=x+i*0.250
print('n = %d вес = %f кг' % (i, y*0.165))
print('Вес на Земле через 15 лет = %.3f кг' % y)
v = int(input("Начальный вес: "))
f(v)
Пример:
Начальный вес: 25
Вес на Луне:
n = 1 вес = 4.166250 кг
n = 2 вес = 4.207500 кг
n = 3 вес = 4.248750 кг
n = 4 вес = 4.290000 кг
n = 5 вес = 4.331250 кг
n = 6 вес = 4.372500 кг
n = 7 вес = 4.413750 кг
n = 8 вес = 4.455000 кг
n = 9 вес = 4.496250 кг
n = 10 вес = 4.537500 кг
n = 11 вес = 4.578750 кг
n = 12 вес = 4.620000 кг
n = 13 вес = 4.661250 кг
n = 14 вес = 4.702500 кг
n = 15 вес = 4.743750 кг
Вес на Земле через 15 лет = 28.750 кг