Составьте программу вывода на экран всех степеней числа 2, меньших 100.PascalABC

Знания

Информатика

1 ответ:

Михаил123456789101 год назад

0 0

Yo no puedo escribir en ruso.

Читайте также

Ребят, помогите с информатикой плз. нужно решить задачи, только по действиям

ahmetyh

#89
Решение:
5×30×70=10500 символов

0 0

1 год назад

Запишите в десятичной системе счисления следующие числа: А2 =11101, А8 = 164, А16 =211

Наталья 3105 [1]

$11101 _{2} = 2^{4} + 2^{3} + 2^{2} + 2^{0} = 16 + 8 + 4 + 1 = 29$
$164_{8} = 4* 8^{0} + 6 * 8^{1} + 1 * 8^{2} = 4 + 48 + 64 = 116$
$221_{16} = 1 * 16^{0} + 2 * 16^{1} + 2 * 16^{2} = 1 + 32 + 512 = 545$

0 0

1 год назад

1) Заполните массив случайными числами и переставьте соседние элементы, поменяв 1-ый элемент со 2-м, 3-й – с 4-м и т.д. 2) Напиш

Poli7q [50]

Var N:Array[1..20] of integer; i,j,q,k,max:integer;begin Randomize;writeln('массив');for i:=1 to 20 do beginN[i]:= random(100)-50;write(N[i]:4);end;writeln;i:=0;writeln('Измененый массив');While j<20 do beginj:= j + 2; k := N[j-1];N[j-1]:=N[j]; N[j]:= k;end;foreach q in N do beginwrite(q :4);end;end.
var N,M:Array[1..20] of integer; i,j,min,q,k,max:integer;begin Randomize;max:=-200; min:=200;writeln('1 массив');for i:=1 to 20 do beginN[i]:= random(100)-50;write(N[i]:4);if ((N[i]>0 )and(N[i] mod 2 = 0))then beginif max < N[i] then max := N[i];if min > N[i] then min := N[i];j:= j + 1;M[j]:=N[i];end;end;writeln;writeln('2 массив');foreach k in M do beginwrite(k:4);end;writeln;if (max = -200) or (min = 200) then write ('нет чётных положительных элементов')else beginwrite('max = ' ,max:4);write(' min = ' ,min:4);end;end.

0 0

4 года назад

Помогите решить задание. Нужно решение с оформлением. Спасибо.

Albinochka123 [2.1K]

После выполнения у будет равен 17

0 0

3 года назад

Решите задачу cif2 из встроеннного задачника используя внутри цикла команду ветвления мне очень срочно! заранее спасибо)

сергей199488

uses Robot;

begin

Task('cif2');

while FreeFromRight do begin

Right;

if WallFromUp or WallFromDown then Paint;

end;

end.

0 0

4 года назад