Определите значение переменной с после выполнения следующего фрагмента программы: b: =20; a: =40; a: =b-a/b; if a < b then c: =b*a+b else c: =(a-b)*2;

ОТВЕТ: 380

1)Text

2)FlatStyle

3)CheckBox

4)Flat

5)FlatAppearance

6)Appearance

Объяснение:

Прапорці можуть використовуватися в формі по одному або групами.

Щоб встановити або скинути прапорець, можна використовувати клавіші швидкого доступу. Для їх призначення необхідно вставити символ амперсанда (&) перед відповідною буквою у властивості Text прапорця.

Зовнішнім виглядом розміщеного в формі прапорця управляє властивість FlatStyle. Вона може приймати одне із зазначених в таблиці 1 попередньої статті значень.

Якщо властивість FlatStyle елемента управління CheckBox приймає значення Flat, то для задання додаткових параметрів його зовнішнього вигляду використовується властивість FlatAppearance (див. таблиця 2 попередньої статті).

Для задання виду прапорців також використовується властивість Appearance, яке має два значення. Значення за замовчуванням Normal (Стандартний) задає звичний вигляд прапорця (квадрат з галочкою всередині). При значенні Button (Кнопка) прапорець матиме вигляд плоскої або піднятою кнопки в залежності від того, встановлено прапорець або скинуто. На рис.2 показаний вид прапорця в залежності від значень властивості Appearance і його стану

Программа 1:

program test;

var N : integer;

begin

Randomize;

N := Trunc(Random(899) + 100);

WriteLn('Исходное число - ', N);

Write('Перевёрнутое число - ');

While N > 0 do begin

 write(N mod 10);

 N := N div 10

end;

writeln

end.

Программа 2:

Program test1;

Uses Math;

var

 K1, K2 : array [1..3] of real;

 i : integer;

 L : real;

begin

write('Введите координаты X, Y, Z первой точки: ');

for i := 1 to 3 do Read(K1[i]);

write('Введите координаты X, Y, Z второй точки: ');

for i := 1 to 3 do Read(K2[i]);

L := 0;

{Суммируем квадраты разностей между одноимёнными координатами}

for i := 1 to 3 do L := L + Power( (K1[i] - K2[i]), 2);

WriteLn('Расстояние между точками L = ', sqrt(L):8:3 )

end.