Створіть новий файл Python. Підключіть відповідний модуль та створіть вікно зеленого кольору, з розмірами 500х600, та заголовком "Вікно 1". Створіть новий файл, що відкриває вікно рожевого кольору, із заголовком "Вікно 2" та мінімальними розмірами 100х100.
Створіть новий файл, що відкриває вікно сірого кольору, з розмірами 600х500, з заголовком "Сіре вікно", та з забороною змінювати розміри вікна.
Створіть новий файл, що відкриває вікно зеленого кольору, з розмірами 490х440, відступом від лівого та верхнього країв відповідно 400 та 200. Заголовок "Вікно з відступами", та забороною змінювати розміри вікна.
Створіть новий файл, що відкриває вікно блакитного кольору, з розмірами 567x345, відступом від лівого та верхнього країв відповідно 100 та 0. Заголовок "Графіка", та забороною змінювати розміри вікна. Та створити друге вікно із заголовком "Вікно 2" білого кольору, з ідентичними розмірами та забороною змінювати розмір вікна. Вікно 2 відкривається після закриття першого.
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!
function Summa(a:array of integer):=a.Sum;
begin
var a:=ArrRandom(10,-99,99); a.Println; Writeln;
var b:=ArrRandom(20,-99,99); b.Println; Writeln;
var c:=ArrRandom(30,-99,99); c.Println; Writeln;
Writeln('S=',Summa(a)+Summa(b)+Summa(c))
end.
Пример
53 34 13 64 79 28 -98 -43 -19 23
96 -18 48 61 -70 -16 92 0 27 65 -68 -17 -77 90 -13 69 46 85 71 -44
-21 65 -56 31 56 25 37 50 -35 52 91 -94 12 -98 -51 -73 6 -31 -7 -32 35 -88 -53 63 -93 -29 11 22 -23 -89
S=244
готово. паскаль
Объяснение:
Задание 1
с = 0
Задание 2
var
n, m, c: integer;
begin
Write('Введите числа m и n >> ');
ReadLn(m, n);
if (m mod 5 <> 0) or (m < n) then
c := (m mod 10) + (n mod 10);
WriteLn('Сумма последних цифр этих чисел равна ', c);
end.
Задание 3
var
a, b, c: integer;
begin
Write('Введите числа a, b и c >> ');
ReadLn(a, b, c);
if (b < 50) and (b > 20) and (c < a) then
begin
WriteLn('Сумма этих чисел равна ', a + b + c);
WriteLn('Произведение этих чисел равно ', a * b * c);
end;
end.