program z1;
uses GraphABC;
var t:integer;
begin
SetWindowSize(400,400);
write('Введите показания температуры: ');
read(t);
SetPenWidth(3);
if t<=0 then
begin
SetPenColor(clBlue);
Line (150,200,200,150);
Line (200,150,250,200);
Line (250,200,200,250);
Line (200,250,150,200);
FloodFill(200,200,clSkyBlue);
Line (100,200,300,200);
Line (200,100,200,300);
Line (100,100,300,300);
Line (100,300,300,100)
end
else
begin
SetPenColor(clYellow);
Line (100,200,300,200);
Line (200,100,200,300);
Line (100,100,300,300);
Line (100,300,300,100);
SetBrushColor(clYellow);
Circle(200,200,50)
end
end.
Объяснение:
Вводим температуру
Если t <= 0 рисуем снежинку, иначе (если t > 0) рисуем солнышко

Поделитесь своими знаниями, ответьте на вопрос:
В двух кучках должно быть меньше 44 камней,в кучках есть 4 камня,т.е. в двух кучках должно быть меньше 40 камней.
40/3=13(остаток 1) должно быть сделано 13 ходов.
Если начинает противник, то я делаю чётные ходы.
если начинаю я, то я делаю не четные ходы