Регистрация
Gazeerovka
11.08.2022 08:38
Информатика
Есть ответ 👍

30ку.написать программу на паскале которая определяет и выводит все составные числа n. число n задается во время работы программы

254
287
Посмотреть ответы 2

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

ISMAL2009
ISMAL2009
4,4(66 оценок)

ответ:

. в нужно вывести все составные числа из промежутка [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;

ПётрФ
ПётрФ
4,6(77 оценок)

var   x,y: real;

begin

x: =-1;

writeln('x': 2,'y': 6);

while x< =9 do

  begin

  y: =1.6-x*x/2 ;

  writeln(x: 3: 1,y: 6: 1);

  x: =x+0.7

  end

end.

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