1) Печатает 10 раз надпись <span>Hello, world!
2) Печатает значение "i'' (В данном случае напечатает все числа от 1-15)</span>
var i : integer;
a : string;
b :array [1..16] of integer;
begin
a :='';
Randomize;
for i:= 1 to 16 do
begin
b[i]:= Random(-20,20);
if b[i] mod 2 = 0 then a:=a+ i + ' ';
end;
Writeln(a);
end.
Var n:integer;
begin
writeln('n=');
readln(n);
case n of
3,4,5:writeln('Весна');
6,7,8:writeln('Лето');
9,10,11:writeln('Осень');
1,2,12:writeln('Зима');
end;
<span>end.</span>
Ответ:
215
Объяснение:
Видимо, неравенство в задаче выглядит так:
Переведем каждое из чисел 10-тичную систему счисления.
Получим диапазон для десятичных чисел , длину которого легко посчитать: 246 - 32 + 1 = 215
Вставка-->Номер страницы--->Внизу страницы(ну или где там нужно).