Program p1;
var a:integer;
begin
a:=random(89)+10;
writeln('a= ',a);
writeln('Summa tsifr= ',a mod 10+a div 10);
writeln('4islo naoborot= ',a mod 10, a div 10);
<span>end.
program p2;
var a:integer;
begin
a:=random(899)+100;
writeln('a= ',a);
if (a mod 10)=((a div 100) mod 10) then writeln('POLIMER')
else writeln('NE POLIMER');
end.</span>
11001110₂<x<DE₁₆
DE₁₆=11011110₂
11001110<x<11011110
11011110₂
-
11001110₂
00010000₂
10000₂=16₁₀
ответ 16
Решение во вложении. Не забудьте разрешить выполнение макросов и проектов VBA без цифровой подписи.
Алгоритм действий на псевдокоде:
пока дробная часть ≠ 0:
>>> умножить дробную часть на 2
>>> добавить цифру слева от точки к ответу
Луна
1. Создаём Эллипс
2. Перекрашиваем его в нужный цвет с помощью заливки
3. Предаём форму месяца с помощью ластика
Цветок
1. Создаём эллипс
2. Вокруг Эллипса создаём ещё другие Эллипсы и выставляем их вокруг первого Эллипса
3. Окрашиваем Эллипсы в нужные цвета
Колобок
1. Создаём эллипс
2. Внутри эллипса создаём глазки помощью инструмента "Эллипс"
3. Окрашиваем эллипсы в нужные цвета