vadim1140
?>

Найти и исправить ошибки в программе. Program chisla; Var n1, n2 : longint; k1, k2 : byte; Function kol(x : longint): byte; var k: byte; begin k:=0; While x<>0 do begin Inc(k); x:=x div 10; end; kol:=k; end; BEGIN writeln(‘Введите два числа’); readln(n1, n2); k1:=kol(n1); k2:=kol(n2); if k1=k2 Then writeln(‘одинаковое количество цифр’) else if k1>k2 Then Writeln(‘в первом числе цифр больше’) else writeln(‘во втором числе цифр больше’) END.​

Информатика

Ответы

maksimovskiy7657

Основная идея состоит в том, что каждая сумма – это сумма цифр, то есть она не может быть больше 18. Значит, надо разбивать каждое возможно получившееся число на однозначные и двузначные числа и смотреть, может ли такое быть.

1212 – возможно, например, из числа 666 (6+6 = 12, 6+6 = 12, итог: 1212)

129 – возможно, например, из числа 936 (9+3 = 12, 3+6 = 9, итог: 129)

123 – возможно, например, из числа 930

1218 – невозможно. Это число можно разбить только на два двузначных числа, но тогда 12 и 18 записаны в порядке возрастания, а по условию должно быть наоборот

1812 – возможно, например, из числа 993

312 – невозможно. Это число можно разбить либо на 3 и 12, либо на 31 и 2. В первом случае числа расположены в порядке возрастания, а во втором нельзя получить 31, так как сумма цифр не больше 18

912 – невозможно (аналогично с 312)

112 – возможно, например, из 920

Итого 5 чисел могут получиться.

ответ: 5

Pavel_Olegovna1601

1)Монитор,(на счет магнитофона не уверен, сам по себе именно магнитофон никак не является устройством ПК, но если подразумевают пол этим словом динамик ПК, то подходит)

2)Получение

3)Электрический ток

4)Анатомический муляж

5)102 бита

6)48

7)из перечисленных ниже нет верного ответа. 568 в десятичной = 1 000 111 000 в двоичной.

8)АВИБА

9)Представленные ответы неправильны, так как не являются двоичным кодом(присутствуют двойки)+не указано к какой системе счисления принадлежит y (если x - очевидно 16-ти ричная, то y может быть как 16 так и 10

10) И снова нет верного ответа из предложенных, т.к. получится D8

11)800 бит

12) (Ячейки excel где?)

13) Аналогично 12

14)тоже

15)27

16)User-name

17)c*.c*

18)145.92.128.0

19)Верного ответа нет. Правильно: 22

20) 5

Объяснение:

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Найти и исправить ошибки в программе. Program chisla; Var n1, n2 : longint; k1, k2 : byte; Function kol(x : longint): byte; var k: byte; begin k:=0; While x<>0 do begin Inc(k); x:=x div 10; end; kol:=k; end; BEGIN writeln(‘Введите два числа’); readln(n1, n2); k1:=kol(n1); k2:=kol(n2); if k1=k2 Then writeln(‘одинаковое количество цифр’) else if k1>k2 Then Writeln(‘в первом числе цифр больше’) else writeln(‘во втором числе цифр больше’) END.​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Денис_Петровна
serge-lysoff
valentinakarma2800
zotcet7
aksmobile
elenaperemena8
samsakovs7757
Манько_Панферов
DzukaevAlekseevich
Mikhailovna1444
Роман1406
ainred
maxkuskov2485
mbykovskiy