Определить, есть ли хотя бы одно число, которое кратно заданному числу А и не кратно заданному числу В

@RENE5865 · Регистрация: 14.06.2015

Составить программу для решения предложенной задачи. Выясните имеются ли среди чисел i3 – 17*i*n2 + n3, i = 1,2,…,n хотя бы одно число, которое кратно заданному числу А и не кратно заданному числу В (А≠В

@Puporev · 24.06.2015, 08:13

Сообщение от RENE5865

i3 – 17*i*n2 + n3

Это наверное так?
i³-17*i*n²+n³

Добавлено через 14 минут

Pascal

var n,i,a,b,c,k:integer;
begin
repeat
writeln('Введите 2 целых числа, не равных 0 и A<>B');
readln(a,b);
until(a*b<>0)and(a<>b);
write('n=');readln(n);
k:=0;
i:=1;
while(i<=n)and(k=0)do
 begin
  c:=i*i*i-17*i*n*n+n*n*n;
  if(c mod a=0)and(c mod b<>0) then k:=1;
  i:=i+1;
 end;
if k=1 then write('имеется')
else write('не имеется');
end.

@RENE5865 0 / 0 / 0 Регистрация: 14.06.2015 Сообщений: 13
		1
	Определить, есть ли хотя бы одно число, которое кратно заданному числу А и не кратно заданному числу В 23.06.2015, 21:59. Показов 1738. Ответов 1 Метки нет (Все метки) Составить программу для решения предложенной задачи. Выясните имеются ли среди чисел i3 – 17in2 + n3, i = 1,2,…,n хотя бы одно число, которое кратно заданному числу А и не кратно заданному числу В (А≠В 0

Опции темы

Определить, есть ли хотя бы одно число, которое кратно заданному числу А и не кратно заданному числу В

Решение