Паскаль
Program Pro;
var a:integer;
begin
for a:=1 to 3 do
writeln(random(3));
end.
11100
решение просто на глаз:
1 это - 1
10 это 2
100 это 4
1000 это 8
10000 это 16
так как 4+8+16 = 28
то мы и берем только
100 + 1000 + 10000 = 11100
по другому делаеться так:
28 делим на 2, получаем 14, остаток от деления 0
14 делим на 2, получаем 7, остаток 0
7 делим на 2, берем целую часть 3, остаток 1 (т.е вот так: 3*2+1=7)
3 делим на 2, берем целую часть 1, остаток 1 (т.е вот так: 1*2+1=3)
1 делим на 1, целая часть 0 остаток 1
Теперь берем остатки, и записываем адом наперед 11100
MS-DOS QBasic
Версия 1.0
Copyright (C) Microsoft Corporation, 1987-1991.
INPUT n, start, finish
k = start + finish
IF k > n THEN k = n
IF k < 1 THEN k = 1
PRINT k
Тестовое решение
Y:\qbasic>QBASIC.EXE
? 10,5,3
8
Чтобы продолжить, нажмите любую клавишу
1) знак - метка, предмет, явление Встречается как метка компании или копирайт
2) Знаковая система — система, состоящая из множества знаков и отношений между ними, основное понятие семиотики.
3) Знаки препинания, это тире, двоеточие, точка с запятой и др
А)Мои документы
Б)Сетевое окружение
Простите если не правильно,но других вариантов я не знаю!