tarasovs
?>

Распечатать двузначные числа, кратные 9паскаль)

Информатика

Ответы

victoriapetrs
// PascalABC.NET 3.2, сборка 1370 от 24.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  Range(18,99,9).Println
end.

Результат
18 27 36 45 54 63 72 81 90 99
zybin41iz81

1. когда установившиеся пары танцующих притиснули всех к стене, он, заложивши руки назад, глядел на них минуты две внимательно (=времени

2. и весьма часто, сидя на диване, вдруг, совершенно неизвестно из каких причин, один, оставивши свою трубку, а другая работу (при каком только она держалась на ту пору в руках, они напечатлевали друг другу такой томный и длинный поцелуй( в продолжение его можно бы легко выкурить маленькую соломенную сигарку. =условия; определит.

3. последние слова понравились манилову, но в толк самого дела он все-таки никак не вник и вместо ответа принялся насасывать свой чубук так сильно (до какой что тот начал наконец хрипеть, как фагот.

4. она сразу уснула (то произошло вследствие так что на мой вопрос я услышал только её ровное дыхание.=следствия.

5. я пришёл к тебе затем, чтобы всё объяснить.=цели

6. и чем темнее становилось на улице, тем ярче сияли на небе звёзды.=сравнения

7. дорога была грязная (несмотря на хотя дождь прошёл ещё вчера вечером =уступки

Lorvi_Shevkunova849
Pascal

 var   
n,i,k : integer;    
function Prost (a : integer) : boolean;  //Возвращает true если число простое
var   
i,b : integer;   
r : boolean; 
begin   
r := true;   
i := 2;   
b := a div 2;   
While (i <= b) and (r) do   
begin     
if a mod i = 0 then     
r := false;   
i := i +1;   
end;   
Result := r; 
end;  

function chet (l : integer) : integer; //Определяет кол-во     
var   i,s : integer;                        //возможных произведений 
                                                 // в числовой последовательносьти
                                                 //заданной длины
begin   
  s := 0;   
for i := 0 to k do     
s := s +(k - i);    
result := s;    
end;
begin 
readln (n); 
k := 0;     
for i := 2 to n do   
if prost(i) then begin     
k := k +1;      
//write (i,' '); // Вывод простых чисел(если надо, то раскоменьтить)     
end;   
writeln ();
writeln ('Кол-во простых чисел на диапазоне = ',k); 
writeln ('Кол-во произведений ',k,' различных чисел : ',chet(k));    
end. 

Вроде работает, хотя вероятно есть более эффективный алгоритм.
Единицу не учитывал как простое.
Блок схему рисовать не буду - геморойной, да и не силен я в этом

Просто попытаюсь объяснить алгоритм

1) Мы находим все простые числа на диапазоне от 1 до n
(выполняется функцией (prost), и перебором.
2) Исходя из кол-ва найденных простых чисел мы можем найти кол-во их произведений. Т.к все числа различны и идут в порядке увеличения.
Это делается с функции (chet)

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Распечатать двузначные числа, кратные 9паскаль)
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Олеся
Yurevich1701
Екатерина15
slastena69678
Yeremeev
Джулия
zelreiki
Rizhov Alekyan325
georgegradoff122
detymira
gunel1988alieva
anna241273
ryadovboxing
ustinov434
Zhilinoe134