1.Зробити проект, де в ходівиконаннязміікна – змінити відстаньвідверхньоїмежівікна до верхньоїмежіекрана на 20 пікселей, змінити колір(на жовтий) та
висоту вікна (на 15 пікселей) одночасно та відстань зліва на 35 пікселей та
заголовок форми одночасно. Використати компонент прапорець.
2. Зробити
проект, де в ході виконання змінювати
значення властивостей вікна – змінити відстань від верхньої межі вікна до верхньої
межі екрана на 20 пікселей, змінити колір(на жовтий) та висоту вікна (на 15
пікселей) одночасно та відстань зліва на 35 пікселей та заголовок форми
одночасно. Використати компонент поле з розкривним списком.
3.Зробити проект,
де за до перемикача можна отримати суму, добуток або різницю двох чисел.
var m:array [0..14] of integer; i:integer;
function IsPositive(a:integer):boolean;
begin
result:=(a>-1);
end;
procedure work;
var min, max, count:integer;
begin
count:=0;
min:=m[0];
max:=0;
for i:=0 to 14 do begin
if IsPositive(m[i]) then begin
inc(count);
if m[i]>max then max:=m[i];
if m[i]<min then min:=m[i];
end;
end;
writeln('MAX: ', max);
writeln('MIN: ', min);
writeln('Count: ', count);
end;
begin
for i:=0 to 14 do begin
write('n: ');
readln(m[i]);
end;
work;
readln;
end.
Если число 3306(10) в системе исчисления с основанием а заканчивается цифрой 3, то тогда
число 3303 делится на основание системы а.
Отсюда алгоритм поиска. Находим все делители числа 3303.
3303 = 3*1101 = 3*3*367. Число 367 - простое. Поэтому основаниями системы исчисления
могут быть только 3, 9, 367. Основание =3 не подходит, так как по условию число должно заканчиваться на 3 -> основание больше 3. Остаются 9, 367.