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

@ILue · Регистрация: 17.01.2013

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

Составить программу для проверки утверждения: "Результатами вычислений по формуле x2+x+17 при 0<=x<=15 являются простые числа". Все результаты вывести на экран.

@Leshiy27 · 17.01.2013, 14:59

Pascal

uses crt;
var
x,s:integer;
begin
for x:=0 to 15 do
begin
s:=x*2+x+17;
write (s);
if (s mod 2=0) or (s mod 3=0)  or (s mod 4=0)or (s mod 5=0) or (s mod 6=0) or (s mod 7=0)
then
writeln('  Nepravda')
else
writeln('  Pravda');
end;
 writeln('Eto nepravda')
end.

ката так

@ILue 9 / 9 / 0 Регистрация: 17.01.2013 Сообщений: 87
		1
	Составить программу для проверки утверждения 17.01.2013, 12:48. Показов 1760. Ответов 1 Метки нет (Все метки) Составить программу для проверки утверждения: "Результатами вычислений по формуле x2+x+17 при 0<=x<=15 являются простые числа". Все результаты вывести на экран. 0

Опции темы

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

Решение