Пишу программу(мини-игра), которая загадывает число, а ты его должен отгадать. вот мой код: from tkinter import* import random def output(event): a = random.randint(1,100) txt = entry_1.get() while int(txt) ! = a: if int(txt) > a: label_4['text'] = 'твоё число больше заданного! ' elif int(txt) < a: label_4['text'] = 'твоё число больше заданного! ' else: label_4['text'] = 'угадал' root = tk() root.title('guess the number') label_1 = label(root, text = 'введите число') label_1.grid(row=0, column=1) label_2 = label(root, text = '> > > > > > > > > > > > > ') label_2.grid(row=0, column=0) label_3 = label(root, text = '< < < < < < < < < < < < < ') label_3.grid(row=0, column=2) label_4 = label(root, width=27, font= 10) label_4.grid(row=2, column=1) label_5 = label(root, text = '|') label_5.grid(row=4, column=1) entry_1 = entry(root, width=3) entry_1.grid(row=1,column=1) button_1 = button(root, text = 'проверить') button_1.grid(row=3, column=1) button_1.bind('', output) root.mainloop() при нажатии на кнопку: проверить, окно зависает. , ! )

Вот задача для "троечников" с дополнительной оценкой:

program pr1;
uses
crt;

const
arr1 : array[1..12] of integer = (5, 4, -3, 1, 0, -4, 0, 25, -8, 0, -17, -1);

type
arr2 = array of integer;

var
arr : arr2;
n : integer;
i, sot, spl, snu : byte;
ch : char;

begin
write('Хотите использовать заданный по умолчанию массив? (y/n): ');
ch := readkey;
writeln(ch);
sot := 0;
spl := 0;
snu := 0;
if ((ch='y') or (ch='Y')) then begin
{ Используем заданный по умолчанию }
for i:=1 to 12 do begin
if arr1[i] > 0 then inc(spl);
if arr1[i] < 0 then inc(sot);
if arr1[i] = 0 then inc(snu);
write(arr1[i], ' ');
end;
writeln;
end
else begin
{ Создаём и заполняем новый массив }
write('Введите желаемый размер массива: ');
readln(n);
setLength(arr, n);
writeln('Введите элементы массива:');
for i:=0 to high(arr) do
readln(arr[i]);
for i:=0 to high(arr) do begin
if arr[i]>0 then inc(spl);
if arr[i]<0 then inc(sot);
if arr[i]=0 then inc(snu);
write(arr[i], ' ');
end;
writeln;
end;

writeln('Количество отрицательных элементов: ', sot);
writeln('Количество нулевых элементов: ', snu);
writeln('Количество положительных элементов: ', spl);
end.

1.
var s:string; m1,m2,m3:integer;
begin
writeln('- Привет! Я компьютер, а как тебя зовут?');
write('- '); readln(s);
writeln('- ',s,', введи свои оценки по 3 предметам');
write('- '); readln(m1,m2,m3);
writeln('- ',s,', твой средний ', (m1+m2+m3)/3);
end.

Пример:
- Привет! Я компьютер, а как тебя зовут?
- Алёна
- Алёна, введи свои оценки по 3 предметам
- 4 4 4
- Алёна, твой средний 4

2.
var a,b:integer;
begin
write('a = '); readln(a);
b:=(a div 100)*100 + (a mod 10)*10 + (a div 10 mod 10);
writeln('b = ',b);
end.

Пример:
a = 123
b = 132