Информатика: тому кто первый напишет правельный ответ

Маракуйя2002

13.04.2023 11:22

Информатика

Есть ответ 👍

тому кто первый напишет правельный ответ

161

480

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

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

Excellent11

Информатика

4,6(75 оценок)

Var a,b,i,j,k: integer; begin write('a = '); readln(a); write('b = '); readln(b); for i: =a to b do begin k: =0; for j: =2 to i div 2 do if i mod j=0 then k: =k+1; if k=1 then write(i,' '); end; end. пример: a = 1 b = 500 4 9 25 49 121 169 289 361 ps. искомые числа - это квадраты простых чисел, поэтому можно и более эффективную программу написать.