В «перо» берешь команду печать, ставишь костюмы разных цветов, создаешь скрипт, где отдельный круг перемещается в точку кота, и в цикле меняешь костюмы
Var
n: integer;
begin
readln(n);
writeln((n mod 2 = 0) and (n div 10 > 0) and (n div 100 = 0));
end.
Смотри Excel табличку. Так было быстрее всего!
Пояснение: A v B v C это логическое умножение, тоесть это выражение можно изменить на выражение вида: <span>A * B * C. А дальше ты работаешь как в обычной математике. Потом заменяешь значения 0 на 1 и 1 на 0.</span>
А:=4
b:=2
b:=а/2*b //в результате b = 4/2*2 = 4
a:=2*a+3*b
//в результате a = 2*4+ 3*4= 20
Ответ: 20
Var
n,m:integer;
r1,r2:real;
begin
writeln('Введите количество часов: ');
readln(n);
writeln('Введите количество минут: ');
readln(m);
n:=n mod 12;
r2:=m/60*360;
r1:=(n*360+r2)/12;
writeln('Угол поворота часовой стрелки ',r1,' градусов или ',r1/180*Pi,' радиан');
writeln('Угол поворота минутной стрелки ',r2,' градусов или ',r2/180*Pi,' радиан');
end.