Поделитесь своими знаниями, ответьте на вопрос:
Вопросы 1. Назовите основные части окна Lazarus. 2. Из каких вкладок состоит палитра компонентов? 3. Опишите функции кнопок, расположенные на странице Standard? 4. На какие виды можно разделить кнопки по выполняемой функции? 5. Какие события определяются нажатием на мышь? б. Как реализуется выбор фона и цвета текста компонентов Labe1 и Edit? 7. В чем отличие окна IDE Lazarus от окна процедурного языка?
var
M, N, k, mn, P: integer;
f: Text;
begin
Assign(f, 'input.txt');
Reset(f);
Readln(f, M, N);
Close(f);
if M < N then mn := M else mn := N;
if mn = 1 then P := 0
else begin
k := mn div 2;
if mn mod 2 = 0 then
if M = N then P := 4 * k - 2
else P := 4 * k - 1
else
if M = N then P := 4 * k
else P := 4 * k + 1
end;
Assign(f, 'output.txt');
Rewrite(f);
Writeln(f, P);
Close(f)
end.