Принято считать землю идеальной сферой с радиусом r=6371 км. напишите программу расчета расстояния от точки с заданной высотой(значение вводится с клавиатуры)до линии горизонта земли. по информатике язык паскаль
. в нужно вывести все составные числа из промежутка [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. вопрос: как мне сделать выход из цикла после первого успешного деления?
Информационный вес символа при алфавитном подходе считается, что каждый символ текста имеет определенный информационный вес, информационный вес символа зависит от мощности алфавита. а каким может быть наименьшее число символов в алфавите? оно равно двум! скоро вы узнаете, что такой алфавит используется в компьютере. он содержит всего 2 символа, которые обозначаются цифрами «0» и «1». его называют двоичным алфавитом. изучая устройство и работу компьютера, вы узнаете, как с всего двух символов можно представить любую информацию. информационный вес символа двоичного алфавита принят за единицу информации и называется 1 бит.
ответ:
. в нужно вывести все составные числа из промежутка [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;