Окно программы Paint. Графический -редактор Paint одновременно может работать только с одним документом, поэтому окно документа является частью окна программы. Главное меню редактора Paint содержит следующие позиции: · Файл - такие же операции с файлами, как и в редакторе WordPad (задание нового файла, загрузка файла, запись файла с текущим и измененным именем, распечатка файла принтером), дополнены опциями: замостить рабочий стол Windows, в центр рабочего стола Windows. · Правка - редактирование файла, работа с буфером обмена, отмена предыдущих действий и повтор результатов отмененного действия. · Вид - управление выводом меню инструментов и цветов, панелью атрибутов текста, а также статусной строки, управление масштабом и обзором изображений. · Рисунок - операции с выделенными изображениями (поворот, инверсия, изменение атрибутов, очистка, изменение параметров рисунка). · Палитра - установка опций графического редактора (установка и запись палитры цветов). · Справка - обращение к справке по графическому редактору.
Задача 1
Program Zadanie1;
var i,N:integer;
A:array[1..4]of integer;
Begin
readln(n);
A[1]:=round(int(N/1000));
A[2]:=round(int(N/100))-A[1];
A[3]:=round(int(N/10))-A[1]-A[2];
A[4]:=N-A[1]-A[2]-A[3];
if (A[1]:=A[4]) and (A[2]:=A[3]) and (A[3]:=A[2]) and (A[4]=A[1]) then writeln('полином');
end;
Задача 2
Program Zadanie2;
var i,N:integer;
A:array[1..3]of integer;
function Kub(a):integer;begin Kub:=a*a*a;end;
Begin
readln(n);
A[1]:=round(int(N/1000));
A[2]:=round(int(N/100))-A[1];
A[3]:=N-A[1]-A[2]-A[3];
if N*N=kub(A[1])+kub(A[2])+kub(A[3]) then writeln('равенство');
end;