uses crt;
var ch,i,n,count:integer;
begin
n:=0;
count:=0;

write(' Введите число : ');
readln(ch);
if ((abs(ch)<30000) and (ch div 100 <> 0 ) and (ch mod 7 = 0)) then inc(count);
while ((ch<>0) and ( n <1001)) do
begin
write(' Введите число : ');
readln(ch);
if ((abs(ch)<30000) and (ch div 100 <> 0 ) and (ch mod 7 = 0)) then inc(count);
inc(n);
end;
writeln(count);
readln;
end.

0 0

4 года назад

Сложите числа 7,5(8)и 14,6(8).

Uselezs

Ответ:

24,3₈

Объяснение:

7,5₈

+ 14,6₈

---------

24,3₈

Система восьмеричная, поэтому складываем как в десятичной, но если число превышает 7, добавляем еще 2 (потому что осенование системы 8 на 2 меньше, чем 10, в которой считаем).

5 + 6 = 11 и +2 = 13. Тройку пишем, +1 в следующий разряд

4 + 7 + 1 = 12 и +2 = 14. Четверку пишем, +1 в следующий разряд.

1 + 1 = 2.

0 0

4 года назад

Вычитать в двоичной системе исчисления 11011000-10111111

про100Некит

<span>Ответ будет таковым :11001 </span>

0 0

1 год назад

Программа паскаль. Помогите пожалуйста!!!в каждом столбце матрицы подсчитать количество парных и не парных елементов

chaurtik2222 [107]

Const amax=20;
var a: array[1..amax,1..amax] of integer;
i,j,k,n,m: byte;
begin
write('Введите размеры массива(матрицы (<20)):');
readln(n,m);
writeln('Массив(матрица):');
for i:=1 to n do begin
for j:=1 to m do begin a[i,j]:=random(99)+1;
write(a[i,j]:4);
end;
writeln;
end;
writeln('Кол-во четных элементов по колонкам:');
for j:=1 to m do
begin
k:=0;
for i:=1 to n do
if odd(a[i,j])=false then inc(k);
writeln('В ',j,' столбце ',k);
end;
writeln('Конец программы!');
end.

0 0

4 года назад