пройти контрольную работу, мне для тематического нужно его сделать Прочитайте в книге(Информатика 8 класс Ривкинд) странички 217-218
Дайте ответы на следующие вопросы:
1. Який вигляд має блок-схема циклу з передумовою? Поясніть виконання цього циклу.
2. Чи можуть команди тіла циклу з передумовою не виконуватись жодного разу? Поясніть свою відповідь.
3. Чи може виконання циклу з передумовою ніколи не закінчитися? Поясніть Свою відповідь.
4. Чи відрізняються між собою цикл з лічильником і цикл з передумовою?
5. Який загальний вигляд команди циклу з передумовою є Object Pascal ?
6. Розв'яжіть задачу: Розрахуйте суму чисел S=1+7+13+19+..., поки сума не стане більшою від 1000 . У відповідь виведіть максимальне значення суми.

Буду очень благодарен! Всё , что есть.​

Казалось бы, ответ на вопрос какой народ придумал арабские цифры гениально прост. Ну кто еще, как ни арабы, могли придумать наши с вами цифры, если они носят название арабские?
Однако не все так просто. Если посмотреть на израильские древние языки, то написание цифр там, как ни странно, совершенно не такое, к какому мы привыкли. Их цифры представляют из себя завитушки и крючёчки, и только их цифра «9″ чуть-чуть смахивает на нашу девятку.
Так кто же тогда придумал арабские цифры? На самом деле, знакомые нам цифры (1, 2, 3, …, 9) придумали вовсе не арабские народы. Это написание пришло к нам из Индии. Именно индийские древние народы так обозначали цифры. Конечно, сегодня данное написание претерпело множество изменений, но именно в древней индийской письменности можно разглядеть похожие «закорючки» . Арабские цифры были придуманы в Древнем Востоке для того, чтобы людям было удобнее записывать сложные математические вычисления. Ведь тогда на территории Древнего Востока существовало большое количество научных и псевдонаучных школ.
Но почему тогда цифры названы арабскими? Оказывается, из Индии в Европу эти цифры принесли именно арабы. Однако напрашивается вопрос – почему же тогда арабы не оставили такое написание и себе?

Var
  i,k,n,p:longint;
  f:array[1..10,1..2] of longint;
begin
  p:=2; i:=1;
  f[1,1]:=1; f[1,2]:=1;
  Write('Введите натуральное число не больше 2 147 483 647: ');
  Read(n);
  Write(n,' = 1');
  while n<>1 do begin
    if (n mod p)=0 then begin
      if f[i,1]<>p then
      begin Inc(i); f[i,1]:=p; f[i,2]:=1 end
      else Inc(f[i,2]);
      n:=n div p
    end
    else inc(p)
  end;
  k:=i;
  for i:=2 to k do
  begin
    Write(' x ',f[i,1]);
    if f[i,2]>1 then Write('^',f[i,2])
  end;
  Writeln
end.

Тестовое решение:
Введите натуральное число не больше 2 147 483 647: 223092870
223092870 = 1 x 2 x 3 x 5 x 7 x 11 x 13 x 17 x 19 x 23

Введите натуральное число не больше 2 147 483 647: 65536
65536 = 1 x 2^16

Введите натуральное число не больше 2 147 483 647: 2147483647
2147483647 = 1 x 2147483647