59
В F и G по 6 переменных, значит по 64 строки. Из них 10 строк одинаковые, значит 54 разные( в F стоит 0, а в G-1 или в F-1, а в G-0). <span> F \/ G будет в этих 54 </span>равно 1 и в 10 где 1 (5 строк) тоже. Полуаем 54+5=59.
<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var imin:=a.IndexMin;
Writeln('Номер минимального элемента: ',imin+1,
', значение: ',a[imin])
end.
<u>Пример</u>
n= 17
-20 -14 27 33 -34 -25 -47 33 -46 -5 -36 -3 30 -27 -45 46 41
Номер минимального элемента: 7, значение: -47
Var k,i:integer;
begin
write ('Введите количество повторений: ');
readln (k);
for i:=1 to k do
writeln ('ПРИВЕТ!!!')
end.
Формула для расчета разрядности: (объем памяти в байтах) : (время звучания в секундах): (частота дискретизации):
#include <stdio.h>
#include <stdlib.h>
int main()
{
int a,b,c,d1,d2,d=0,n=0;
srand (time(NULL));
a = rand() % 50 + 1;
b = rand() % 50 + 1;
c = rand() % 20 + 1;
while (c>a) a = rand() % 50 + 1;
while (c>b) b = rand() % 50 + 1;
printf ("%d %d %d\n", a, b, c);
d1 = a; d2 = b;
while (d1>=c){
d2 = b;
while (d2>=c){ n++; d2 -= c; }
d1 -= c;
}
printf("%d\n", n);
for (int i=0; i<(10-1); i++) d += n;
d = -d;
printf("%d", d);
return 0;
}
Пример:
<span>27 42 4
60
-540</span>
