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

3 года назад

Решается четвертная оценка. Пожалуйста, помогите

Знания

Информатика

1 ответ:

Dissident [49]3 года назад

0 0

Два символа в алфавите. Соответственно, 1 бит на символ. Раз в слове 5 символов, то 5 битов или 2^5 = 32 варианта слова.

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

Дан массив 3x4.Найти кол-во четных элементов массива.Вывести исходный массив на экран.(Turbo Pascal,уточнять не надо) Прошу 100%

Liliya93

Перебои все элементы массива, а потом через "%/2" проверку сделай. Воаля.

0 0

4 года назад

При угадывании целого числа в некотором диапазоне было получено 6 битов информации. Сколько чисел содержит этот диапазон?

Nargiel [14]

N=2^i
i=6 битов информации
N=64 числа

0 0

4 года назад

Решите задачу по Паскалю пожалуйста!

MichaBar [7]

program noname;
uses crt;
var
x,y:real;
begin
clrscr;
write('x='); readln(x);
write('y='); readln(y);
if (x>1) or (x<-1)or (y>1) or (y<-1) then
writeln('no')
else writeln('yes');
readkey;
end.

0 0

4 года назад

Для чего человеку нужны линейка транспортир термометр барометр компас телескоп микроскоп какие ещё приборы и приспособления вы

malevich98 [4]

Линейка- для измерения расстояний, транспортир-углов.термометр- для измерения температуры.барометр- для измерения атмосферного давления.компас- для ориентировки по сторонам света.телескоп- для наблюдения за небесными телами.микроскоп-для наблюдения за микромиром

0 0

4 года назад

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

Написать программу с функцией,которая возвращает в основную программу кол-во гласных букв

Наталья10

program raf105;

var

s: string;

g: integer;

function glas(s:string): integer;

const

glas_list = 'аяоёуюыиэе';

var

i,j,res:integer;

begin

s:= lowercase(s);

for i:=1 to length(s) do

for j:=1 to length(glas_list) do

if s[i] = glas_list[j]

then res:= res + 1;

glas:= res;

end;

begin

write('Введите строку: ');

readln(s);

g:= glas(s);

writeln('В строке ',g,' глас.');

end.

<h3><u>PascalABC 3.4.2</u></h3>

0 0

3 года назад