Компьютер был создан очень давно и щас таких компьютеров очень много.А использую я его для того что б общаться,договариваться с друзьями о встрече или какой нибудь поездке.В двадцать первом веке компьютер нужен каждому человеку,за исключением пожилых бабушек и дедушек,и бывает так что и они его используют.Потому что сейчас как раньше люди не гуляют,а раньше компьютеров не было,веселились как могли.Каждый человек использует его по разному кто для работы,а кто то для учебы.Ну а мне он нужен конечно же для учебы и в будущем понадобится и для работы.
a = 1
n = 4 #odd
b = 3 #even
while a != -1:
a = int(input("Insert number:"))
if a == -1:
break
if > b
b += 1
if a > n
n += 1
print(odd)
Тест к программе
a= -1 b=2 c=3 s=1.5 (промежуточные m1 m2 m3 сами просчитаете и проверьте)
a=4 b= - 5 c=0 s = 8
<em>// PascalABC.NET 3.2, сборка 1456 от 26.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<em>№1</em>
begin
// индексацая с нуля
var R:=ArrGen(15,i->10*i-i*i);
R.Println
end.
<u>Пример</u>
0 9 16 21 24 25 24 21 16 9 0 -11 -24 -39 -56
<em>№2</em>
begin
var a:=ArrRandom(30,-50,50); a.Println;
var m:=a.IndexMin;
a:=a[:m+1]+Arr(0)+a[m+1:];
a.Println
end.
<u>Пример</u>
45 45 29 7 38 -46 3 -39 -44 -4 -17 -7 7 -30 23 48 6 42 24 -12 -4 48 47 -49 -47 4 -5 -40 -10 43
45 45 29 7 38 -46 3 -39 -44 -4 -17 -7 7 -30 23 48 6 42 24 -12 -4 48 47 -49 0 -47 4 -5 -40 -10 43