<span> // 1 гриб</span><span>
// 2-4 гриба</span><span>
// 5-10 грибов</span><span>
// 11-20 грибов исключение</span><span>
// 21 гриб</span><span>
// 22-24 гриба</span><span>
// 25-30 грибов</span><span>
// 31 гриб</span><span>
// 32-34 гриба</span><span>
// 35-40 грибов</span><span>
// 41 гриб</span><span>
// 42-44 гриба</span><span>
// 45-50 грибов</span><span>
// 51 гриб
как видим из вышеизложенного, мы должны только запрограммировать окончание первого десятка и исключение 11-20, которое будет портить нам малину, т.к. там одно окончание будет.
А остальное берем целочисленный остаток от деления на 10, и добавляем нужное окончание.</span><span />
1) 640 × 480 = 307200 пикселей в данном изображении
2) 3 байта = 24 бита - глубина кодирования одного пикселя
3) 307200 × 24 = 7372800 бит - информационный объем данного изображения
4) 7372800 бит / <span>1 024 000 бит/с = 7,2 секунды требуется модему, если скорость передачи будет <span>1 024 000 бит/с</span></span>
<span><span>Ответ: 7,2 секунды нужно модему</span></span>
Var n,k,b : real;beginread (n);k:=0;b:=0;while n>0 do beginb:=(b+1)*(b+1);k:=k+b;n:=n-1;b:=sqrt(b);end;write (k);end.
Если на сайт, просто скопируй в паскаль
Ответ:
import sys
m = int(input("Задайте m : "))
n = int(input("Задайте n : "))
if(m < n):
m = m*n
n = m*m + n*n
elif(n < m):
n = m*n
m = m*m + n*n
else:
print("Числа равны")
sys.exit()
print("n = ",n)
print("m = ",m)
Объяснение:
Про табуляцию не забудь. Язык Python 3x
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
var se:=a.Where((x,i)->i.IsOdd).Sum;
var pn:=a.Where(x->x<0).Aggregate(BigInteger(1),(p,q)->p*q);
var ko:=a.Where(x->x.IsOdd).Count;
Writeln('Сумма элементов с четными номерами: ',se);
Writeln('Произведение отрицательных элементов: ',pn);
Writeln('Количество нечетных элементов: ',ko)
end.
<u>Пример</u>
n= 17
7 -60 -7 -96 -14 97 7 -68 -89 -87 -50 49 77 -52 -36 -15 99
Сумма элементов с четными номерами: -232
Произведение отрицательных элементов: -417286023598080000
Количество нечетных элементов: 10
begin
var a:=ReadArrInteger('Вводите:',ReadInteger('n='));
a.Println;
a.Transform(x->x<0?abs(x):x>0?x*x:x); a.Println
end.
<u>Пример</u>
n= 17
Вводите: 7 -60 -7 -96 -14 97 7 -68 -89 -87 -50 49 77 -52 -36 -15 99
7 -60 -7 -96 -14 97 7 -68 -89 -87 -50 49 77 -52 -36 -15 99
49 60 7 96 14 9409 49 68 89 87 50 2401 5929 52 36 15 9801
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
var im:=a.IndexMax;
swap(a[0],a[im]); a.Println;
end.
<u>Пример</u>
n= 16
-73 -46 76 92 -57 -57 81 -96 -92 18 -76 89 13 -83 69 56
92 -46 76 -73 -57 -57 81 -96 -92 18 -76 89 13 -83 69 56