Begin Randomize;
writeln('Для молодежи: ',Random(100)+1);
writeln('Для взрослых: ',Random(100)+101);
writeln('Для пенсионеров: ',Random(50)+201);
<span>end.</span>
И какое же задание?..........
Visual BasicВыделить код
Option Explicit
Function Min_3(a As Variant, b As Variant, c As Variant) As Variant
Min_3 = a
If a > b Then Min_3 = b
If Min_3 > c Then Min_3 = c
End Function
Private Sub Form_Activate()
Dim a As Integer, b As Integer, c As Integer
a = Val(InputBox("Введите число"))
b = Val(InputBox("Введите число"))
c = Val(InputBox("Введите число"))
Print "Наименьшее из чисел " & a & ", " & b & ", " & c & " - число " & Min_3(a, b, c)
End Sub
Program asd;
var i,n:integer;
begin
read(n);
while n>0 do begin
i:=i + n mod 10;
n:=n div 10;
end;
write(i);
end.
149 -- 10
100010101 - 2
225 - 8
95 - 16
Это можно сделать с помощью калькулятора в windows, просто выбрать вид - программистский. А если учитель не принимает один ответ без решения, тогда так. Переводишь 149 в двоичное либо делением на 2 до тех пор, пока остаток от деления не будет меньше 2, получаешь 10010101, для перевода этого числа в восьмеричную делишь его на группы по три символа, начиная слева 010 010 101, если не хватило по три, добавляешь нолик слева. Переводишь каждую пару просто в десятичное, ответ будет из трех символов 2 2 5 это восьмеричная. Для шестнадцатиричной берем то же двоичное и разбиваем на группы по 4 символа справа 1001 0101, получилось 2 четверки, переводим обе в десятичную, но если при переводе получится что-то больше 9, заменяем это на букву. 10 - А, 11 - В.....15 - F. у нас получилось 9 5.