Например, я и ........... пошли .............
//Pascal ABC.NET v3.1 сборка 1219
Var
a,b,c:integer;
begin
read(a,b,c);
if (a+b+c) mod a=0 then writeln('Yes') else writeln('No');
end.
//Pascal ABC.NET v3.1 сборка 1172
//1
Var
x,y:real;
begin
read(x);
if x<=7 then
y:=3*x-9 else
y:=1/(x*x*x+4);
writeln(y);
end.
//2
Var
a,b:real;
begin
read(a,b);
if a>b then writeln(a*b) else writeln(a-b);
end.
Var n,i,s:integer;
begin
write('n = ');
readln(n);
s:=0;
for i:=1 to n do s:=s+2*i;
writeln('s = ',s);
end.
Пример:
n = 5
s = 30
a = int(input("введите 1 число = "))
b = int(input("введите второе число = "))
op = str(input("оператор: "))
if op == 'pow':
result = a**b
print(result)
if op == '+':
result = a+b
print(result)
if op == '*':
result = a*b
print(result)
if op == '/':
if b == 0:
print("Деление на 0")
else:
result = a/b
print(result)