Вывести на экран все кратные тринадцати натуральные числа, меньше 100

@rom6520 · Регистрация: 18.01.2011

Есть еще такая задачка на циклы.
Вывести на экран все кратные тринадцати натуральные числа, меньше 100.
эту задачу нужно решить двумя способами (через цикл с постусловием , и цикл с предусловием)!!!
если кто сможет помочь буду презнателен.

@Mad_Dog · 19.01.2011, 12:02

Вот тупой брутфорс:

Pascal

j:=13;
while j<=100 do
  begin
    if j mod 13 = 0 then writeln(j);
    Inc(j)
  end;

Более оптимальный вариант

Pascal

j:=13;
while j<=100 do
  begin
    writeln(j);
    Inc(j,13);
  end

@rom6520 · 19.01.2011, 12:05 **[ТС]**

А как быть с постусловием??

@Mad_Dog · 19.01.2011, 12:19

Так же как и с Вашей благодарностью....

@rom6520 · 19.01.2011, 12:22 **[ТС]**

Ну спасибо и на этом выручил !!!! ун а все же как быть с постусловием ???

@Mad_Dog · 19.01.2011, 12:22

Pascal

j:=13;
repeat
    writeln(j);
    Inc(j,13);
until j>100;

@rom6520 · 19.01.2011, 12:37 **[ТС]**

Благодарю теперь вообще все супер

Добавлено через 13 минут
А можно вопрос что такое Inc(j)????

@dampir_sanek · 19.01.2011, 12:40

rom6520, гугл сломался? Inc

@Mad_Dog · 19.01.2011, 12:40

Inc(j) - это увеличение на 1 параметра J... Иначе j:=j+1
Только выполняется во много раз быстрее...

@rom6520 · 19.01.2011, 12:42 **[ТС]**

Ясно спасибо мы это еще не проходили просто

@rom6520 0 / 0 / 0 Регистрация: 18.01.2011 Сообщений: 40
		1
	Вывести на экран все кратные тринадцати натуральные числа, меньше 100 19.01.2011, 11:54. Показов 5095. Ответов 9 Метки нет (Все метки) Есть еще такая задачка на циклы. Вывести на экран все кратные тринадцати натуральные числа, меньше 100. эту задачу нужно решить двумя способами (через цикл с постусловием , и цикл с предусловием)!!! если кто сможет помочь буду презнателен. 0

@rom6520 0 / 0 / 0 Регистрация: 18.01.2011 Сообщений: 40
	19.01.2011, 12:05 [ТС]	3
	А как быть с постусловием?? 0

@Mad_Dog Фрилансер 452 / 433 / 117 Регистрация: 01.06.2010 Сообщений: 1,314
	19.01.2011, 12:19	4
	Так же как и с Вашей благодарностью.... 1

@rom6520 0 / 0 / 0 Регистрация: 18.01.2011 Сообщений: 40
	19.01.2011, 12:22 [ТС]	5
	Ну спасибо и на этом выручил !!!! ун а все же как быть с постусловием ??? 0

@rom6520 0 / 0 / 0 Регистрация: 18.01.2011 Сообщений: 40
	19.01.2011, 12:37 [ТС]	7
	Благодарю теперь вообще все супер Добавлено через 13 минут А можно вопрос что такое Inc(j)???? 0

@dampir_sanek 152 / 150 / 44 Регистрация: 09.02.2010 Сообщений: 407
	19.01.2011, 12:40	8
	rom6520, гугл сломался? Inc 1

@rom6520 0 / 0 / 0 Регистрация: 18.01.2011 Сообщений: 40
	19.01.2011, 12:42 [ТС]	10
	Ясно спасибо мы это еще не проходили просто 0

Опции темы