Перевести задачу из C# в Delphi

[Базиля]

kventin_zhuk
Что такое цикл с постусловием

[kventin_zhuk]

Сообщение от Базиля

kventin_zhuk
Что такое цикл с постусловием

Ну это трындец.... ну и я ворона.

[Надежда_ИСУ]

Ну всё, совсем загрузили меня!!!

[Базиля]

Читайте то что по ссылке.
И не будет никакой путаницы.
Хотя, полагаю вам еще рановато про циклы читать.
Каков у вас уровень?

[Надежда_ИСУ]

Сообщение от Базиля

Читайте то что по ссылке.
И не будет никакой путаницы.

Ну сейчас что-нибудь начитаю!!!

Сообщение от Базиля

Читайте то что по ссылке.
И не будет никакой путаницы.
Хотя, полагаю вам еще рановато про циклы читать.
Каков у вас уровень?

Уровень далеко не далекий!!! Понимаю что такое if ....then ...else!!!
Ну по крайней мере как это работает по блок-схеме!!!

[Базиля]

Тогда можно начинать осваивать циклы.
Только я смотрю желанием особо не горите

[Надежда_ИСУ]

Сообщение от Базиля

Тогда можно начинать осваивать циклы.
Только я смотрю желанием особо не горите

А что нужно начать осваивать для решения этой задачи,с того и начнём, а главное чтобы примеров побольше было я так лучше понимаю!

[Базиля]

Те самые циклы вам и нужны.
Примеров в сети куча, гуглится это дело вообще без проблем.
Первая же ссылка по результату запроса гуглом. По моему примеров достаточно.

[Надежда_ИСУ]

Сообщение от Базиля

Те самые циклы вам и нужны.
Примеров в сети куча, гуглится это дело вообще без проблем.
Первая же ссылка по результату запроса гуглом.

Ну значит с них и начну, а завтра наработки свои корявые Вам покажу!
ну я уже гуглю!!!Вот только время не подходящее, уж как 1 ночи!

[ByAlex]

Сообщение от Надежда_ИСУ

Ну значит с них и начну, а завтра наработки свои корявые Вам покажу!
ну я уже гуглю!!!Вот только время не подходящее, уж как 1 ночи!

Ладно, иди спать спокойно, держи код!

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  n, k:integer;
  f:boolean;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Vvedite chislo - ');
  readln(n);
  //n := 29;
  k := 2;
  f := false;
  repeat
    if (n mod k)=0 then
      f:=true;
    inc(k);
  until not (k<=sqrt(n));
  Writeln(f);
  readln;
end.