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) рисуем солнышко
Поделитесь своими знаниями, ответьте на вопрос:
Имеется три кучки камней – 2, 3 и 4 камня. два игрока ходят по очереди. ход состоит в том, что игрок либо удваивает число камней в какой-то кучке, либо добавляет по 2 камня в каждую из куч. выигрывает тот игрок, после хода которого, в одной из кучек становится не менее 15 камней, либо число камней во всех трех кучках становится не менее 25. в распоряжении игроков имеется неограниченное количество камней. кто выигрывает в этой игре? игрок, делающий первый ход или игрок, делающий второй ход? какой должен быть первый ход выигрывающего игрока?
В двух кучках должно быть меньше 44 камней,в кучках есть 4 камня,т.е. в двух кучках должно быть меньше 40 камней.
40/3=13(остаток 1) должно быть сделано 13 ходов.
Если начинает противник, то я делаю чётные ходы.
если начинаю я, то я делаю не четные ходы