Альфа мен Бета тайпалары бір-біріне жолдау дайындады. Жолдаулар бірдей ақпараттар санынан тұратыны белгілі. Альфа тайпасының жолдауы қуаты 32 символды алфавиттен, ал Бета тайпасының жолдауы қуаты 64 символды алфавиттен тұрады. Мәтіндердің ақпараттық көлемі неше есеге ерекшеленед
ответ:
. в нужно вывести все составные числа из промежутка [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;