//Блок-схема во вложении
//Pascal ABC.NET v3.0 сборка 1111
Var
a,i,n,max,maxi:integer;
begin
readln(n);
for i:=1 to n do
begin;
readln(a);
if abs(a)>max then
begin;
max:=abs(a);
maxi:=i;
end;
end;
write('Максимальный по модулю элемент был введен ',maxi,'-м');
<span>end.
</span>
Ответ:
15 мин переведем в секунды это равно: 15×60(поскольку в одной минуте 60 сек)=900 сек
25×900=22 500 кб=21,9=22мб
Точно не знаю но
Если 1 яч. 10 значит 8 яч. 80кб.
Если 3 занято то от 80- 30 = 50кб.
Значит если в 1 кб. = 1024 байта то 50 кб = 51200байта оставшийся памяти
2.На флэшке мы сможем , на микросхеме нет на жестком диске на разбирать одним словом сложно и на диске тоже можно но сложно .Так что флэшка самый быстрый и удобный вариант
Дана последовательность чисел 0, 0, 1, 1, 2, 4, 7, 3, 4, 4 … , каждый элемент этой последовательности, начиная с четвёртого раве
NoriGloria [245]
Ответ будет 7.
Если интересно то вот код программы с помощью которого можно найти значение для любого элемента последовательности.
Вместо 1400 вводишь номер элемента
int a = 0, b = 0, c = 1, d = 1;
for (double i = 1; i <= 1400-3; i++ ) {
d = (c + b + a)%10;
a = b;
b = c;
c = d;<span>
Console.WriteLine(d);
}</span>
Var a,b,c,m:integer;
function min(x,y:integer):integer;
begin
if x<y then min:=x else min:=y;
end;
begin
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
m:=min(min(a,b),c);
writeln('min=',m);
<span>end.
Пример:
a=5
b=3
c=8
<span>min=3
</span></span>
