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

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

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

4 года назад

14

Запишите значение переменной b после выполнения фрагмента алгоритма

Запишите значение переменной b после выполнения фрагмента алгоритма

Информатика

1 ответ:

dowrk1 [1]4 года назад

0 0

по условию:

a=0

b=27

______

|a|<b

подставляем

|0|<27

верно

a=a-2

a=0-2=-2

Дальше идет повтор действий до неверного неравенства.

|-2|;|-4|;|-6|;|-8|;|-10|;|-12|;|-14|;|-16|;|-18|;|-20|;|-22|;|-24|;|-26|;|-28|

|-28|<27

28<27

неверно

b=|-28|

b=28

<h3>Ответ:28</h3>

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

Подсчитайте,сколько байт в памяти занимает рисунок размером 20 на 20 пикселов,закодированный в режиме истинного цвета?

Татьяна65 [2]

Истинный цвет - каждый пиксель весит 24 бита
Объем = кол-во пикселей* глубину цвета=20*20*24 бит=9600 бит=1200 байт=приблизит. 1,17Кбайт

0 0

4 года назад

Хелп!В системе связи скорость передачи информации 200 символов в минуту. В течение 5 минут было передано сообщение объемом 375

Алекс1313 [21]

200 символов в минуту * 5 минут = 1000 символов, которые занимают 375 байт, или 375*8=3000 бит. Значит, каждый символ занимает 3000\1000=3 бита, а размер алфавита - 2^3=8 символов.

0 0

4 года назад

Сколько битов следует отвести для кодирования данного, имеющего 50 различных значений?

reshka777 [35]

2 в степени i = N

N=50

i=6 бит (так как 2^5= 32, а мы должны брать с избытком)

0 0

4 года назад

Ввести целое n, затем ввести n вещественных элементов одномерный массива x, используя процедуру vvod. Найти сумму и произведение

Wni

//Pascal ABC.NET 3.1 сборка 1219

Var
n,a,b:integer;
x:array of integer;

procedure vvod(n:integer; var x:array of integer);
begin
x:=readarrinteger(n);
end;

begin
readln(n,a,b);
vvod(n,x);
var sub1:=x.Where(x -> x<a);
var sub2:=x.Where(x -> x>b);
var sub:=sub1+sub2;
n:=1;
writeln('Сумма не вошедших:',sub.Sum);
foreach var i in sub do
n:=n*i;
writeln('Произведение не вошедших:',n);
writeln('Количество не вошедших:',sub.Count);
writeln('Все элементы:',sub);
end.

Пример ввода:
5
1
5
-1
-2
4
5
6
Пример вывода:
Сумма не вошедших:3
Произведение не вошедших:12
Количество не вошедших:3
Все элементы:[-1,-2,6]

0 0

4 года назад

Составить программу вычисляющую площадь произвольного треугольника со сторонами a b c в программе pascal

Danalex

Program prog;
uses crt;
var
a,b,c,s,p:real;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
write('c = ');
readln(c);

if (a>0) and (b>0) and (c>0) then
begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('S = ',s:0:3);
end;
end.

0 0

3 года назад