1) uses crt;
var i,n,s,mx:integer;a:array[1..1000] of integer;
begin
randomize();
mx:=-100;
for i := 1 to 10 do begin
a[i] := random(100) + 1;
write(a[i],' ');
if (a[i] mod 2 = 0) and (mx < a[i])then mx := a[i];
end;
writeln('');
writeln(mx);
end.
2)
uses crt;
var i,n,s,mn1,mn2:integer;a:array[1..1000] of integer;
begin
randomize();
mn1:= 101;
mn2:= 101;
for i := 1 to 10 do begin
a[i] := random(100) + 1;
write(a[i],' ');
if (a[i] mod 2 = 1) and (mn1 > a[i])then begin
mn2 := mn1;
mn1 := a[i]
end;
end;
writeln('');
writeln(mn2);
end.
За каждую клетку число зерен удваивается и мы получаем сумму такого ряда:
Это число равно 18 446 744 073 709 551 615.
Определим приблизительный объем зерна
18446744073709551615 / 15000000 ≈ 1 229 782 938 247м³
Если считать, что амбар имеет форму куба, длина его каждого измерения составит приблизительно ∛1229782938247 ≈ 10714м.
1. a :=x•x(1-умножение. a=x^2)
2. b :=x•a(2-умножение. b=x^3)
3. c :=b•b(3-умножение. c=x^6)
4. d :=c•c(4-умножение. d=x^12)
5. e :=d•d(5-умножение. e=x^15)
Wde не работает, так что не проверял..
var n,x,s,i:integer;
begin
readln(n); // считываем n
for i:= 1 to n do begin
readln(x); // читаем одно из n чисел
s:=s+x; // добавляем к сумме
end;
writeln(s);
end.
1. вкус
2. обоняние
3. зрение
4.осязание
5.обоняние + зрение
6.осязание