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

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

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

4 года назад

5

Информатикааа помогите

Информатика

1 ответ:

Игорь Медв4 года назад

0 0

1-2 2-1
3
A|B|неB|F
0|0| 1 |1
0|1 | 0 |0
1 |0| 1 |1
1 |1 | 0. |1

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

Информационный объем слова ДИСКОВОД в системе кодирования Unicode составляет БИТ?

Vikki-mikki

В Юникоде 1 символ - 16 бит. 16 * 8 = 128 бит.

0 0

4 года назад

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

Помогите написать программу, пожалуйста! s=3! + 4^5 (степень) 10 класс

olikk

Var s:integer;
begin
s:=2*3+4*4*4*4*4;
writeln('s = ',s);
end.

Результат:
<span>s = 1030</span>

0 0

4 года назад

Кто такой Пифагор,..............

сергей19 [179]

Древнегреческий филосов, математик, мистик

0 0

3 года назад

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

Паскаль.Ввести N целых чисел.Найти сумму чисел кратных 5 и не кратных 3.

Voyka

Program z20; Var n, sum, i:integer; a: array [1..1000] of integer;Begin write('Введите кол-во чисел = '); readln(n); for i:=1 to n do begin write('Число [', i, '] = '); readln(a[i]); end; sum:= 0; for i:=1 to n do if (a[i] mod 5 = 0) and (a[i] mod 3 <> 0) then sum:= sum + a[i]; writeln('Сумма чисел = ', sum);End.

0 0

3 года назад

Создать подпрограмму Minmax(A,B), записывающую в переменную A минимальное из значений A и B, а в переменную B - максимальное из

Kadmsk

procedure Minmax(var a, b: integer);
var min, max: integer;
begin
if a < b then min := a else min := b;
if a > b then max := a else max := b;
a := min;
b := max;
end;

0 0

4 года назад