1)
a = int(input("введіть 1 число: "))
b = int(input("введіть 2 число: "))
c = int(input("введіть 3 число: "))
d = int(input("введіть 4 число: "))
e = int(input("введіть 5 число: "))
f = int(input("введіть 6 число: "))
d = int(input("введіть 7 число: "))
q = int(input("введіть 8 число: "))
w = int(input("введіть 9 число: "))
z = int(input("введіть 10 число: "))
suma = [a,b,c,d,e,f,d,q,w,z]
print('сума введених чисел = ',sum(suma))
2)
s = 0
while true:
a = int(input("введіть число: "))
s += a
print("сума введених чисел: ",s)
if a == 0:
break
Объяснение:
Перед тем как начать я хотел бы сделать акцент на двух положениях:
Первое. Мы исходим из того что читатель знаком с такими пакетами как 3D Studio MAX (либо любым другим пакетом трехмерного моделирования) и Photoshop (или любым его аналогом). В данном конкретном случае я собираюсь использовать терминологию этих двух пакетов. Однако, не смотря на это те же самые принципы можно использовать, пользуясь любым другим софтом.
Второе. В своей работе я всегда исхожу из одной истины залог успеха. И если первое положение предельно ясно, то второе я хотел бы раскрыть несколько шире. Начав, как это ни печально, именно с теории.
var a,b:integer;
s:real;
begin
readln(a);
readln(b);
if (a+b>5) then s:=sqrt(a+b) else s:=sqr(a+b);
writeln(s);
end.
2)uses crt;
var a,b,c:integer;
pr:real;
begin
readln(a);
readln(b);
readln(c);
if (abs(a*b*c)>=10) then pr:=(a*b*c)/3 else pr:=(a*b*c)*(a*b*c)*(a*b*c);
writeln(pr);
end.
3)uses crt;
var a,b,sq:integer;
begin
readln(a);
readln(b);
if (a>b) then sq:=sqr(a);
if (b>a) then sq:=sqr(b);
writeln(sq);
end.
4)uses crt;
var a:integer;
begin
readln(a);
if (a<20) and (a>0) then a:=a-4 else a:=abs(a);
writeln(a);
end.