Тапсырма:Екітаңбалы N саны берілген. Осы санның цифрларының қосындысы тақ па, жұп па? Анықтандар. Егер тақ болса, онда жауапқа «1», жұп болса, «0»шыксын. Есептің блок-сызбасы берілген Программа түрін жазыңдар.S:-N div 10+N mod 10S mod 2=1 k:=1k:=0k​

// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

function ДробьНесократима(Чис,Знам:integer):boolean;
begin
  while Знам<>0 do begin Чис:=Чис mod Знам; Swap(Чис,Знам) end;
  Result:=Чис=1
end;

begin
  for var Знаменатель:=2 to 7 do
    for var Числитель:=1 to Знаменатель-1 do
      if ДробьНесократима(Числитель,Знаменатель) then
        Write(Числитель,'/',Знаменатель,' ');
  Writeln
end.

Результат
1/2 1/3 2/3 1/4 3/4 1/5 2/5 3/5 4/5 1/6 5/6 1/7 2/7 3/7 4/7 5/7 6/7

Сначала производится инициализация массива, в конце - выводится на печать n.

Содержательная часть программы - эта:

n := ves[1];

For i := 1 to 14 Do

  If Ves[i] < n Then

  Begin

     n : = ves[1]

  End;

Здесь сначала n равно ves[1], затем в цикле, если ves[i] меньше n, то n  присваивается равным ves[1]. Если бы было присвоение ves[i], то получился бы алгоритм поиска минимального элемента (ответ был бы 21 = min[25, 21, 23, 28, 30, 25, 31, 28, 25, 28, 30, 27, 26, 24]). Но здесь вне зависимости от значений всегда присваивается n = ves[1], поэтому в n в любой момент времени записан первый вес (25), он и будет выведен на экран.

ответ: 25