1.
num = input()
num_rev = int(num[::-1])
print(max( int(num), num_rev ))
2.
num1 = int(input())
num2 = int(input())
num3 = int(input())
more_then_0 = 0
less_then_0 = 0
is_0 = 0
for i in [num1, num2, num3]:
if i > 0:
more_then_0 += 1
elif i < 0:
less_then_0 += 1
else:
is_0 += 1
if more_then_0 == 3:
print(num1 + num2 + num3)
elif less_then_0 == 2:
print(num1 * num2 * num3)
elif is_0 == 2:
print(0)
3. Не понял задание, напиши в комментариях, что именно нужно сделать, а я отредактирую ответ, и напишу решение
4.
kat1 = int(input())
kat2 = int(input())
gip = (kat1**2 + kat2**2)**0.5
S = kat1*kat2/2
P = kat1+kat2+gip
Можно использовать другие команды? Например Trunc?
Если да, то вот:
var i,j,n:integer;
s:real;
begin
readln(i,j);
s:=i/j;
n:=i-j*Trunc(s); {Функция Trunc выделяет целую часть}
writeln(n);
<span>end.
Если нельзя пользоваться Trunc, то вот другое решение:
var i,j:integer;
s,m:real;
begin
readln(i,j);
m:=i/j;
s:=m;
while s>=1 do s:=s-1;
m:=m-s
;writeln(i-j*m;);
<span>end.</span></span>
Истинное высказывание:
12+24=36
Ложное высказывание:
16+10=23
Объясните пожалуйста, какая у Вас конкретная тема по информатике и каким образом это творить ?! С помощью переменных строк или иначе...
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,10,99); a.Println;
var imin:=0;
var imax:=0;
for var i:=1 to n-1 do
if a[i]>a[imax] then imax:=i
else
if a[i]<a[imin] then imin:=i;
if imin<imax then
for var i:=imin+1 to imax-1 do a[i]:=0
else
for var i:=imax+1 to imin-1 do a[i]:=0;
a.Println
end.
<u><em>Тестовое решение:</em></u>n= 15
38 62 15 47 50 69 74 10 62 47 68 89 28 13 50
38 62 15 47 50 69 74 10 0 0 0 89 28 13 50
