Вывести все трехзначные числа, для которых квадрат средней цифры кратен 7

@Andrei_M · Регистрация: 26.06.2012

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

вывести на экран все трех значные числы для которых квадрат средней цифры кратен 7.

@CodeR · 06.07.2012, 15:11

Pascal

Var i:integer;
Begin
    For i:=100 to 999 do
     if sqr((i div 10)mod 10) mod 7 = 0 then write(i:4);
End.

@Andrei_M · 06.07.2012, 15:35 **[ТС]**

а можно каким-то другим способом?

@CodeR · 06.07.2012, 15:40

Pascal

Var s:string;
    i,k,n:integer;
Begin
    For i:=100 to 999 do
     Begin
      Str(i,s);
      Val(s[2],n,k);
      if sqr(n) mod 7 = 0 then write(i:4);
     End;
End.

Можно ещё сделать чтобы невыводил те числа у которых средняя цифра =0

Pascal

1	if sqr(n) mod 7 = 0

на

Pascal

1	if (sqr(n) mod 7 = 0)and(n<>0)

@Puporev · 06.07.2012, 16:49

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

для которых квадрат средней цифры кратен 7

Это цифры 0 и 7, так что с квадратами можно и не мудрить...

@Andrei_M 0 / 0 / 0 Регистрация: 26.06.2012 Сообщений: 18
		1
	Вывести все трехзначные числа, для которых квадрат средней цифры кратен 7 06.07.2012, 15:08. Показов 1525. Ответов 4 Метки нет (Все метки) вывести на экран все трех значные числы для которых квадрат средней цифры кратен 7. 0

@Andrei_M 0 / 0 / 0 Регистрация: 26.06.2012 Сообщений: 18
	06.07.2012, 15:35 [ТС]	3
	а можно каким-то другим способом? 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	06.07.2012, 16:49	5
	Сообщение от Andrei_M для которых квадрат средней цифры кратен 7 Это цифры 0 и 7, так что с квадратами можно и не мудрить... 0

Опции темы