Program Repeat;
varX: integer;
begin
repeat
Write ('Значение X= ');
Readln (X);
if X <> 111 then
until X = 111;
Writeln ('Молодец!');
<span>end.</span>
function GCD(u: integer; v: integer):integer;
begin
var r:integer;
while ( v <> 0) do
begin
r := u mod v;
u := v;
v := r;
end;
Result:=u;
end;
Begin
var (n,m):=ReadInteger2();
var gcd_n:=GCD(n,m);
var nod_n:=abs(n*m)/GCD(n,m);
gcd_n.Println;
nod_n.Println;
end.
Ответ : 2) 16 2 11
----------------------------------------------
1) 2 - сумма старших разрядов ( 1+1) ; 2 < 10
2) 16 (<18) - сумма средних разрядов
3) 11 (<18) - сумма младших разрядов
1
Ключевое слово USES указывает программе, что необходимо подключить дополнительный внешний модуль (файл с описанием и определение различных функций) .
Crt является одним из стандартных модулей. В нем описаны и определены функции для работы с текстовой информацией на дисплее
2
начало блока определения переменных
3
массив
4
ввод данных с клавиатуры
5
тип данных
6
используется для начала исполняемой секции функции, метода объекта, процедуры, программы, свойства объекта или используется для отделения начала выражения блока
7
очистка экрана
8
используется для включения генератора случайных чисел
Вот программка на Паскале: