//V = (100 -2*h)*(100 -2*h)*h
const L = 100;
var V1, V2,h :real;
begin
v1:= 0; v2:=1; h:=10;
while (v2 - v1) >0 do
begin
v1 := (100 - 2* h)* (100 - 2* h)*h;
h := h +0.5;
v2 := (100 - 2* h)* (100 - 2* h)*h;
writeln('Высота = ', h , ', Объем ', v1);
end;
writeln('Высота = ', h , ', Максимальный объем ', v1);
<span>end.</span>
128 128 128 128 128 128 128
import random
nun_man = [ random.randint(-100,100) for i in range(10) ]
print(nun_man)
count = 0
while count < len(nun_man):
q = nun_man[count]
suma = 0
for i in str(q):
if i == '-':
continue
else:
suma += int(i)
print("Сумма цифр:", suma)
count += 1
Var n : Integer;
Begin
Readln(n);
n:=(n mod 10)*1000+(n mod 1000 div 10)*10+(n div 1000);
Writeln(n);
end.
Ввод: 1234
Вывод: 4231