Program Repeat;
varX: integer;
begin
repeat
Write ('Значение X= ');
Readln (X);
if X <> 111 then
until X = 111;
Writeln ('Молодец!');
<span>end.</span>
0+1 = 1
1*2 = 2 (или 1+1 = 2)
2+1 = 3
3*2 = 6
6*2 = 12
12*2 = 24
24+1 = 25
25*2 = 50
const n=10;
var a:array [1..n] of integer;
i,k:integer;
begin
for i:=1 to n do
begin
a[i]:=random (10);
if a[i] mod 2 = 0 then k:=k+1;
write (a[i],' ')
end;
writeln;
writeln (k)
end.
Var
n,max:real;
begin
max:=-maxint;
writeln('Вводите числа');
repeat
repeat
readln(n);
if (n<>round(n)) then writeln('Введено не целое!');
until (n=round(n));
if n>max then max:=n;
until n=0;
writeln('Максимум: ',max);
end.
_______________________
var
n1,m1:real;
n,m,c,result,ost:integer;
begin
ost:=1;
writeln('Введите 2 числа');
repeat
readln(n1,m1);
if (n1<>round(n1))or(m1<>round(m1)) then writeln('Введено не целое!');
until (n1=round(n1))and(m1=round(m1));
n:=round(n1);
m:=round(m1);
while ost<>0 do
begin
if m>n then
begin
c:=m;
m:=n;
n:=c;
end;
ost:= n mod m;
result:=m;
n:=ost;
end;
writeln('НОД: ',m);
end.
1) 111 010 110 111
2) 6706 = 6×8^3 + 7×8^2 + 6×1 = 3526
3) 61(8) = 6×8 + 1 = 49(10) = 31(16)
4) 111 110 010