Во!
uses graphABC;
var x,y,z,n:integer;
Begin
randomize;
n:=random(1000)+1;
y:=random(n)+123;
x:=random(y)+n;
z:=x+23;
SetWindowSize(n,z);
setbrushcolor (clRed);
Ellipse(z,y,n,x);
floodfill (z,n, clgreen);
line(z,x,z,n);
line(n,y,n,z);
line(x,x,z,n);
end.
Мышь, тачпад и трекбол выполняют функцию комп.мыши, получается, что лишнее - клавиатура
Def power(a, n):
an = 1;
for i in range(n):
an = a*an
return an
print("Введите a:")
a = int(input())
print("Введите n:")
n = int(input())
print(a,"^",n,"=",power(a,n),end = '')
Пример:
<span>Введите a: 2
Введите n: 5
2 ^ 5 = 32</span>
Номер 1
Program n_1;
Var x, y:integer;
Begin
read(x, y);
if (x mod 2 = 1) or (y mod 2 = 1) then writeln('По крайней мере одно из чисел нечетное')
else writeln('Нечетных чисел здесь нет');
End.
Номер 2
Program n_2;
Var x, y:integer;
Begin
read(x, y);
if (x mod 2 = 0) and (y mod 2 = 0) then writeln('Оба числа четные')
else writeln('По крайней мере одно из чисел нечетное');
End.