var i,N:integer; begin веедите натуральное число не превосходящее 1000'); readln(N); writeln('Входное число=',N); for i:=0 to (N-1) do write(i,' '); end.
Пример работы: веедите натуральное число не превосходящее 1000 5 Входное число=5 0 1 2 3 4 P.S.Если в условии от 1-го, а не от нуля, for i:=0 to (N-1) do write(i,' '); замени на for i:=1 to (N-1) do write(i,' ');
Лишняя информация, если тебе не нравится информатика: на сколько я понял, ты не мог понять как вывести сначала число 5. В моей программе это делает оператор writeln(N); Именно Writeln, а не Write. Почему? Потому что writeln произошло от слова line - линия, оно занимает целую строку. А Write мастит все в одну строку. Если нужно будет что-то рассказать и это будет в моих силах, я с радостью любому желающему.
1. Если число в двоичной системе заканчивается на 00, значит оно кратно 4-м в десятичной системе. То есть нужно определить, сколько существует двузначных чисел, которые в квадрате кратны 4-м.10*10 Квадрат числа будет кратен четырем в том случае, если это число чётное, то есть ответом будет кол-во четных двузначных чисел, а это 45.
2. 3 бита это 2^3 = 1 из 8 вариантов. Значит четверки - это 1/8 от всех оценок, 64/8=8 четверок
3. Всего существует 5 четных цифр (включая 0). Из них можно составить 5^4 = 625 различных четырёхзначных комбинаций.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
