Найти 10 первых чисел, которые заканчиваются на 7, кратны 9 и больше 100

@Кучерявая_Ксю · Регистрация: 13.10.2009

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

найти 10 первых чисел которые заканчиваються на 7 кратны 9 и больше 100

@Jazon_deenAlt · 01.12.2010, 13:30

Pascal

uses crt;
var
koun,i:integer;
begin
koun:=0;
i:=107;
while koun<10 do begin
if (i mod 10 = 7) and (i mod 9 = 0) then begin
writeln(i);
koun:=koun+1;
end;
i:=i+1;
end;
readln;
end.

@Кучерявая_Ксю · 01.12.2010, 13:44 **[ТС]**

спасибо)

@Jazon_deenAlt · 01.12.2010, 13:56

Functional God, а еще проще просто вывести ети 10 чисел и не паритса с плюсованием... хотя я согласен что если не через вайлы с репитами то такой вариант:

Pascal

uses crt;
var
i:integer;
begin
for i:=1 to 10 do writeln(27+90*i);
readln;
end.

намного проще... но какоето оно куцое выглядит ня)

@~~Troublemaker~~ · 01.12.2010, 14:09

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

намного проще... но какоето оно куцое выглядит ня)

Зачотная шутка! А еще лучше лобовой способ с O(1000^n) вместо O(1), ага?

Найти 10 первых чисел, которые заканчиваются на 7, кратны 9 и больше 100

Решение

Решение

@Кучерявая_Ксю 0 / 0 / 0 Регистрация: 13.10.2009 Сообщений: 38
		1
	Найти 10 первых чисел, которые заканчиваются на 7, кратны 9 и больше 100 01.12.2010, 13:10. Показов 1652. Ответов 4 Метки нет (Все метки) найти 10 первых чисел которые заканчиваються на 7 кратны 9 и больше 100 0

@Кучерявая_Ксю 0 / 0 / 0 Регистрация: 13.10.2009 Сообщений: 38
	01.12.2010, 13:44 [ТС]	3
	спасибо) 0

@~~Troublemaker~~ Заблокирован
	01.12.2010, 14:09	5
	Сообщение от Jazon_deenAlt намного проще... но какоето оно куцое выглядит ня) Зачотная шутка! А еще лучше лобовой способ с O(1000^n) вместо O(1), ага? 0