Задать вопрос!

Задать вопрос!

Все категории

Алекс и Сандра [341]

4 года назад

6

ПОМОГИТЕ! Дано действительное число a. Не пользуясь никакими другими арифметическими операциями, кроме умножения, получить: a64

за шесть операций. Заранее спасибо!!!!!!

Информатика

1 ответ:

Олеся1084 года назад

0 0

Код Pascal
1 var a:integer;
2 begin
3 readln(a);
4 writeln(a*2*2*2*2*2*2)
5 end.

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

Какие операторы используются для программирования ветвлений?

Любовь Владимировна

1) if() ... else
2) swich() .. case...

0 0

4 года назад

Упорядочить данную последовательность по убыванию. Элементы вводятся с клавиатуры. Размер произвольный. (Паскаль, написать код)

vladis128

===== PascalABC.NET =====

begin

var n := ReadInteger('Длина последовательности:');

ReadSeqInteger('Вводи:', n).SortedDescending.Println

end.

0 0

4 года назад

В массиве D[1..n] удвоить все четные элементы и удалить второй и девятый элементы.

Белобородова Н С [6]

<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>

begin
var n:=ReadInteger('n=');
if n<9 then n:=9; // от дурака
var d:=ArrRandom(n,-50,50);
Write('Исходный массив: '); d.Println;
var i:=1;
repeat
d[i]*=2; i+=2
until i>n-1;
Write(' После удвоения: '); d.Println;
d:=d[:1]+d[2:8]+d[9:];
Write(' После удаления: '); d.Println
end.

<u>Пример</u>
n= 15
Исходный массив: -13 -33 48 -47 -9 19 -21 45 10 -4 -30 40 -31 0 -2
После удвоения: -13 -66 48 -94 -9 38 -21 90 10 -8 -30 80 -31 0 -2
После удаления: -13 48 -94 -9 38 -21 90 -8 -30 80 -31 0 -2

0 0

4 года назад

Прочитать ещё 2 ответа

1.С клавиатуры вводят слово и симвал.Составьте программу ,котораяа)проверяет,есть ли в этом слове данный симвал.б)определяет поз

Фудо

Вот первая программа. Вторую сейчас пишу.

program p_1;
var
a,b:string;
i,k:integer;
begin
k:=0;
write('Введите слово ');
readln(a);
write('Введите символ ');
readln(b);
for i:=1 to length(a) do
begin
if a[i]=b then k:=k+1;
if a[i]=b then writeln(i,' ');
end;
if k>=1 then
writeln('Да, встречается ',k,' раз, на позиции указанных сверху в столбик ')else writeln('Нет');
end.

0 0

4 года назад

1) Сколько разных цветов может быть закодированы, если каждый пиксель кодируется тремя битами ? 2) Сколько разных цветов может б

mateorov [201]

1)
3 бита => 2^3 => 8 цветов

2)
4 бита => 2^4 => 16 цветов

0 0

4 года назад