Регистрация
nikbomba
12.03.2020 15:23
Информатика
Есть ответ 👍

написать программы в Паскаль

y=6х^2+|x-3|-15.

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

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

Mimishichka
Mimishichka
4,5(51 оценок)
Const n=50; var a : array [1..n] of boolean; x,y, sim : integer; begin  sim: =0; a[1] : = false; for x: =2 to n do a[x] : = true;   for x: = 2 to n div 2 do      for y: = 2 to n div x do        a[x*y] : = false;   for x: =1 to n do      if a[x] then sim: =sim+1; writeln(sim); end.

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