3 года назад

Как это делать? Составьте алфавит и следующие 30 чисел в СС с основанием 15.

1 ответ:

0 0

Алфавит системы счисления будет иметь вид
0 1 2 3 4 5 6 7 8 9 A B C D E

следующие 30 чисел
10 11 12 13 14 15 16 17 18 19 1A 1B 1C 1D 1E 20 21 22 23 24 25 26 27 28 29 2A 2B 2C 2D 2E

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

Дано натуральное число.Определить,какая цифра встречается в нём чаще-1 или 9. Pascal

заехали

Varn, nine, one: integer;
begin
readln(n);
nine := 0;
one := 0;
while (n > 0) do
begin
if (n mod 10 = 1) then
inc(one)
else
if (n mod 10 = 9) then
inc(nine);n := n div 10;
end;
if (one = nine) then
writeln('Равны')
else
if (one > nine) then
writeln('Единиц больше')
else
writeln('Девяток больше');
<span>end.</span>

0 0

4 года назад

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

Задан одномерный числовой массив, найти сумму чётных элементов и произведение нечетных. Выдать сообщение, что больше

NorraWhite

реализовано на VS 2017 C++

0 0

4 года назад

Пожалуйста помогите задания 1,2,3,4 заранее спасибо

murdok

Во 2 задание где принт изображён там команда напечатать если к компьютеру подключён принтер то что есть в программе можно напечатать там в 3 задании уходшение зрения надо отметить

0 0

4 года назад

ПАСКАЛЬ, ПОМОГИТЕ! С использованием цикла WHILE ( без массива!!!) Дана последовательность целых чисел, признак окончания которой

JellySherly

var a,b,c,e,k:integer;

begin

k:=9;//вставить любоое число

a:=-1;

while a<>0 do

begin

read(a);

if a>0 then b:=b+a;

if a<0 then c:=c+1;

if (a mod k = 0)and(a<>0) then

if e=0 then e:=a else e:=e*a;

end;

writeln('сумма положительных элементов = ',b);

writeln('кол-во отрицательных элементов = ',c);

writeln('произведение элементов, кратных ',k,' равнo ',e);

end.

если нужно , чтобы пользователь вводил К , то за место оператора к:=9; вставить read(k);

0 0

4 года назад

Как нарисовать поэтапно снеговика компьютерная грамота

елена 75

В програме поир поинт или ворд поинт

0 0

4 года назад