var
a, b, c, d, kol: integer;
begin
write('Введите четыре числа A, B, C и D через пробел: ');
readln(a, b, c, d);
if a mod 2 = 0 then inc(kol);
if b mod 2 = 0 then inc(kol);
if c mod 2 = 0 then inc(kol);
if d mod 2 = 0 then inc(kol);
if kol >= 2 then writeln('Среди введенных чисел есть два или более четных числа')
else writeln('Среди введенных чисел менее двух четных');
end.
Объяснение:
Другой вариант (покороче):
var
a, b, c, d: integer;
begin
write('Введите четыре числа A, B, C и D через пробел: ');
readln(a, b, c, d);
if ((a mod 2) + (b mod 2) + (c mod 2) + (d mod 2)) <= 2
then writeln('Среди введенных чисел есть два или более четных числа')
else writeln('Среди введенных чисел менее двух четных');
end.
Тебе нужно добавить переменную color и проверять нажатие кнопки мыши, когда нажмут кнопку меняешь color
Объяснение:
import pygame
WIDTH = 300
HEIGHT = 250
FPS = 30
BLUE = (0,0,255)
WHITE = (255,255,255)
pygame.init()
x = WIDTH / 2
y = HEIGHT / 2
r = 10
color = "BLUE"
motion = ''
screen = pygame.display.set_mode((WIDTH, HEIGHT))
pygame.draw.circle(screen, color, (x, y), r)
pygame.display.update()
clock = pygame.time.Clock()
motion = 'stop'
running = True
while running:
events = pygame.event.get()
for i in events:
if i.type == pygame.QUIT:
running = False
if i.type == pygame.KEYDOWN:
if i.key == pygame.K_LEFT:
motion = "LEFT"
if i.key == pygame.K_RIGHT:
motion = "RIGHT"
if i.key == pygame.K_DOWN:
motion = "DOWN"
if i.type == pygame.KEYUP:
print("Up")
if i.key == pygame.K_LEFT or i.key == pygame.K_RIGHT or i.key == pygame.K_UP or i.key == pygame.K_DOWN:
motion = "stop"
if motion == "LEFT":
x -= 1
if motion == "RIGHT":
x += 1
if motion == "UP":
y -= 1
if motion == "DOWN":
y += 1
if i.type == pygame.MOUSEBUTTONDOWN:
if i.button == 1:
if color == "BLUE":
color = "RED"
else:
color = "BLUE"
screen.fill(WHITE)
pygame.draw.circle(screen, color, (x, y), r)
pygame.display.update()
clock.tick(FPS)
vara: array[1..1000] of integer;i,n,pol,otr: integer;beginwriteln('vvedite kol-vo elementov massiva');readln(n);pol:=0;otr:=0;
for i:=1 to n do begin a[i]:=random(1000)-300;write(a[i]:6);end;
for i:=1 to n doif a[i] > 0 then beginpol:=pol+1;end;
for i:=1 to n doif a[i] < 0 then beginotr:=otr+1;end;writeln();writeln('polojitelnih chisel ',pol, ' otricatelnih chisel ', otr);end.