1. Дан массив a, состоящий из 8 элементов. Получить массив b, в котором b[i] = a[i]*a[i] (1 <= i <=8).
var a,b:array[1..8] of integer;
i:integer;
begin
writeln('a:');
for i:=1 to 8 do
begin
a[i] := random(10);
write (a[i], ' ')
end;
writeln;
writeln('b:');
for i:=1 to 8 do
begin
b[i] := a[i]*a[i];
write (b[i], ' ')
end;
end.
Пример:
<span>a:
2 9 7 5 2 0 8 7
b:
4 81 49 25 4 0 64 49
2.
var a:array[1..9] of integer;
i:integer;
begin
writeln('a:');
for i:=1 to 9 do
begin
a[i] := random(50)+10;
write (a[i], ' ')
end;
writeln;
for i:=1 to 9 do
if a[i] mod 2 = 0
then writeln(a[i], ' - четное число')
else writeln(a[i], ' - нечетное число')
end.
Пример:
a:
55 51 18 35 33 56 15 56 47
55 - нечетное число
51 - нечетное число
18 - четное число
35 - нечетное число
33 - нечетное число
56 - четное число
15 - нечетное число
56 - четное число
47 - нечетное число </span>
Подают обычно не силу тока, а напряжения - ток же зависит от величины напряжения и сопротивления нагрузки (светодиода) в твоем случае. Если подашь 3 В напряжения то светодиод не сгорит, а если больше - 6 ть. или 9 ть. В то ему мгновенный кирдык
Var s:real; k:integer;
begin
s:=50;
k:=0;
while s<2000 do
begin
k:=k+1;
s:=s+0.1*s;
end;
writeln(k);
end.
Результат:
39
предположим, что в начальном тексте было Х страниц, тогда:
Х*32*64*2 - Байт = 4*Х Кбайт весил текст
4Х=2 Мбайт = 2048Кбайт(по условию)
Х=512 Страниц
Значит в отредактированном - 512-2 = 510 Страницы
510*32*64*2=2088960 Байт = 2040 Кбайт
Вроде N=2i (только i должна быть маленькой в верху)