Написать алгоритм для паскаля. Напечатать минимальное число, больше 200, которое нацело...

Question

Написать алгоритм для паскаля.
Напечатать минимальное число, больше 200, которое нацело делится на 17.

Answer 1

Var
  n: integer;

begin
  n := 201;
  while (n mod 17) <> 0 do n := n + 1;
  Writeln(n)
end.

Результат выполнения программы:
204

Answer 2

Var   a: integer;   
begin   
while a < 200 do     
     a := a + 17;
writeln('Минимальное число, делящееся на 17 и большее 200 - ',a);
end.

Вот такой коротенький кодик :) 

Comments

Не понимаю я прелестей паскаля...

---

Язык для обучения, для описания алгоритмов. Они на нем прозрачны, не то ,что в С/С++

---

Может вы и правы. При подготовке к крупным олимпиадам обычно рассказывают алгоритмы на плюсах или на питоне. Не знаю, почему так, но я уже привык.

---

Это делают для того, чтобы сразу отсеять новичков, которые не поймут ничего.

---

У нас в регионе никто не заморачивается и к школьным/муниципальным этапам вообще не готовят, к региону подготовка есть есть, но она в каких-то кружках, расположенных непонятно где. Вот к заключительному сейчас подготовка начнется конкретная. Просто никто не хочет с новичками заниматься( А тех, кто кое-как выжил уже плюсами-питоном не испугать.

---

Спасибо!!!! Блин, знаю что легкотня, но после практики у меня мозги вообще не варят.... Учёба только вот как 2 неели назад началась....

---

Спасибо отмечают кнопочкой, а размер "спасибо" - числом звездочек

---

И спасибо не этому ответу ставь, а нижнему)

---

Этот ответ тоже условно верный!

---

Ну как бы да, но на старых версиях FPC не верный.