Помогите пожалуйста решить любую задачу по информатике

Знания

Информатика

1 ответ:

s0fia4 года назад

0 0

1)6,25(800:128)
2)96(6*1.25)
3)1,6(40*50*10:12500)

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

Сообщение о том, в каком классе учится школьник, несет 5 бит информации. сколько классов в школе?

zjya

N = 2 ^ i
N = 2 ^ 5 = 32 класса

0 0

4 года назад

Дано целое число N и набор из N целых чисел. Вывести номера тех чисел в наборе, которые меньше своего левого соседа, и количеств

Катерина 89002995370

Консольное приложение:
const n=10;
var a:array[1..n] of integer;
i,k:integer;
begin
Randomize;
writeln('Массив A:');

for i:=1 to n do begin
a[i]:=random(51);
write(a[i]:4)
end;
writeln;
k:=0;
writeln('номера чисел в наборе, которые меньше своего левого соседа:');
for i:=2 to n do
if a[i]<a[i-1] then begin write(i,' '); k:=k+1; end;
writeln;
writeln('k = ',k);
end.

Пример:
Массив A:
31 37 20 22 37 11 45 19 3 14
номера чисел в наборе, которые меньше своего левого соседа:
3 6 8 9
k = 4

0 0

3 года назад

Чем отличается линейный фрагмент алгоритма от разветвления ?

ХК

В отличие от линейных алгоритмов, в которых команды выполняются последовательно одна за другой, в алгоритмическую структуру «ветвление» входит условие, в зависимости от выполнения или невыполнения которого реализуется та или иная последовательность команд (серия).

0 0

4 года назад

Графическое изображение памятника клавиатуре в Екатеринбурге

Denn9

Вот памятник клавиатуре

0 0

4 года назад

Срочно помогите!! Дан массив из 10ти целых чисел , введенных с клавиатуры. Найти и заменить все нулевые элементы на минимальный

Галтим я

Var
  i,min:integer;
  m:array[1..10] of integer;
begin
for i:=1 to 10 do
  begin
  readln(m[i]);
  if i=1 then min:=m[i];
  if m[i]<min then min:=m[i];
  end;
for i:=1 to 10 do
  begin
  if m[i]=0 then m[i]:=min;
  write(m[i],' ');
  end;
<span>end.</span>

0 0

2 года назад

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