Регистрация
katizhi
26.10.2021 09:29
Информатика
Есть ответ 👍

Составте программу для рисования ракеты в паскале

190
309
Посмотреть ответы 1

Ответы на вопрос:

кот933
кот933
4,6(40 оценок)
  function simpl(n: integer): boolean; var i,k: integer; begin     i: =2;     k: =round(sqrt(n));     while ((n mod i)< > 0) and (i< =k) do         i: =i+1;       simpl: =(i> k) end; { основная программа } var i,k,n,m: integer; begin   readln(k,n);   m: =0;   for i: =k to n do   if simpl(i) and simpl(i*2+1) then   begin     write(i,' ');     m: =1;   end;   if m=0 then writeln(0); end.10 100 11 23 29 41 53 83 8912 20 0

Популярно: Информатика