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)
begin
writeln('введите a, b');
readln(a);
readln(b);
a := (a + b) * 2; // периметр
b := Trunc(a / 2);
if a - 2*b < 2 then b := b - 1;
writeln(b:0:0);
end.
var i, n: integer;
begin
n := 35;
for i := 10 to 15 do
writeln('t=', i:2, ' A=', n*i);
end.