Составить программу, которая проверяет заданное утверждение

@gvgtffb · Регистрация: 21.03.2017

Author24 — интернет-сервис помощи студентам

Составить программу, которая позволяет проверить утверждение: «Результатом вычислений по формуле Х² + Х + 17 при 0 ≤ Х ≤ 15 являются простые числа». Если утверждение верное, то вывести все полученные числа. Если утверждение неверно, то вывести все получаемые числа вплоть до первого непростого числа.

@Puporev · 28.03.2017, 14:46

Pascal

var x,y,z,n:integer;
    a:array[0..15] of integer;
begin
n:=-1;
for x:=0 to 15 do
 begin
  y:=x*x+x+17;
  z:=2;
  while z*z<=y do inc(z);
  if z*z>y then
   begin
    inc(n);
    a[n]:=y;
   end;
 end;
if n=15 then writeln('Утверждение верно')
else writeln('Утверждение не верно');
for x:=0 to n do
write(a[x]:4);
end.

@gvgtffb 0 / 0 / 0 Регистрация: 21.03.2017 Сообщений: 69
		1
	Составить программу, которая проверяет заданное утверждение 28.03.2017, 14:19. Показов 1890. Ответов 1 Метки нет (Все метки) Составить программу, которая позволяет проверить утверждение: «Результатом вычислений по формуле Х² + Х + 17 при 0 ≤ Х ≤ 15 являются простые числа». Если утверждение верное, то вывести все полученные числа. Если утверждение неверно, то вывести все получаемые числа вплоть до первого непростого числа. 0

	28.03.2017, 14:46

Опции темы

Составить программу, которая проверяет заданное утверждение

Решение