Стародавні задачі в Turbo Pascal

Єгипетська задача

Кожен із 7 чоловік має 7 кішок.

Кожна кішка з’їдає по 7 мишей. Кожна миша за одно літо з’їдає  7 ячмінних колосків.

А із зерен одного колоска можна виростити  7жмень зерен ячменю.

Скільки жмень ячменю кожного року спасають кішки.

 Дана задача була дуже популярна в Стародавньому Єгипті, хоча з розв’язанням, в наш час проблем не виникає , потрібно тільки піднести число сім до п’ятої степені.

uses

System;

// Єгипетська задача. Задача А1

// Розв’язуємо задачу procedure Solve(); begin

Console.ForegroundColor := ConsoleColor.Yellow; Console.WriteLine(' Число жмень зерна рівно: ' +

7 * 7 * 7 * 7 * 7);

Console.WriteLine(); end; begin

// заголовок вікна:

Console.Title := 'Єгипетська задача. Задача А1';

Console.WriteLine();

Console.ForegroundColor := ConsoleColor.Red;

Console.WriteLine('Египетскі кішки-миші');

Console.ForegroundColor := ConsoleColor.Green;

Console.WriteLine(); Solve();

Console.WriteLine();

Console.ForegroundColor := ConsoleColor.Red; end. 

Цій задачі близько 4 тисяч років, її розв’язували , ще у Стародавньому Вавилоні.

Умова задачі: Довжина та ¼ширини разом складають-7  долоней, а довжина та ширина разом-10  долонь. Скільки долонь складають довжина та ширина окремо?

Вважається, що довжина більша за ширину. З умови задачі видно, що ширина в долонях кратна 4.  А тепер переведемо ці умови на Паскаль: uses

System;

// Вавилонська задача. Задача А2

// Вирішуємо задачу procedure Solve(); begin

Console.ForegroundColor := ConsoleColor.Yellow; for var length := 1 to integer.MaxValue do for var w := 0 to length div 4 do begin

var width := w * 4; if ((length + width div 4 = 7) and

(length + width = 10)) then begin

Console.WriteLine(' Довжина = ' + length);

Console.WriteLine(' Ширина = ' + width);

Console.WriteLine(); exit; end end;

Console.WriteLine(); end; begin

// заголовок вікна:

Console.Title := 'Задача А2';

Console.WriteLine('');

Console.ForegroundColor := ConsoleColor.Red;

Console.WriteLine('Вавилонскі долоні');

Console.ForegroundColor := ConsoleColor.Green;

Console.WriteLine();

Solve();

Console.WriteLine();

Console.ForegroundColor := ConsoleColor.Red; end.