ответ:
. в нужно вывести все составные числа из промежутка [2; n]. код программы:
program lab3;
var i,n,j,s,l: integer;
m: real;
begin
readln (n);
for i: =2 to n do
begin
s: =trunc (sqrt (i));
for l: =2 to s do
begin
m: = i mod l;
if m=0 then
write (' ',i);
end;
end;
end.
но проблема - как только s становится больше 2, составные числа начинают несколько раз повторятся, т.к., например 12 делится и на 2 и на 3. вопрос: как мне сделать выход из цикла после первого успешного деления?
var
i, n, j, s, l: integer;
m: real;
begin
readln(n);
for i : = 2 to n do
begin
s : = trunc(sqrt(i));
for l : = 2 to s do
begin
m : = i mod l;
if m = 0 then
begin
write(' ', i);
break;
Форма — це звичайне вікно. Тому його розмір можна змінити точно так, як і розмір будь-якого іншого вікна, тобто захопленням і переміщенням (за до миші) межі. Після закінчення переміщення меж автоматично зміняться значення властивостей Height і Width.
Основні властивості
Name
(внизу пояснення до властивостей)
Ім'я компонента. Використовується в програмі для доступу до компоненту і його властивостей..
Caption
Текст на кнопці.
Left
Відстань від лівої межі кнопки до лівої межі форми.
Top
Відстань від верхньої межі кнопки до верхньої межі форми.
Width, Height
Ширина, висота кнопки