Program N3;var b,a:integer;begin b:=0; write('Введите число - ');readln(a); repeat a:=a*3; b:=b+1; until a>100; writeln('Нужно умножить ', b, ' раз');end.
Стандартно отрицательные числа хранятся в памяти в дополнительном коде.
-3464 = -(2048 + 1024 + 256 + 128 + 8) = -(2^11 + 2^10 + 2^8 + 2^7 + 2^3) = 1|000 1101 1000 1000 (в прямом коде) = 1|111 0010 0111 0111 (в обратном коде) + 1 = 1|111 0010 0111 1000 (в дополнителтном коде)
function sum(i, n: <em>integer</em>): <em>boolean</em>;
var
a, b: <em>integer</em>;
begin
a := i;
repeat
b := b + a mod 10;
a := a div 10;
until (a = 0);
sum := (b = n);
end;
var
n, i, k: <em>integer</em>;
begin
readln(n, k);
for i := 1 to k do
if sum(i, n) then
writeln(i);
end.
Var n,a,i,nn:integer;
begin
write('Количество двузначных чисел: ');
readln(n);
for i:=1 to n do begin
repeat
write('Введите ',i,' число');readln(a);
until (a>9) and (a<100);
if a mod 2 =0 then nn:=nn+1;
end;
writeln('Количество четных двухзначных = ',nn);
end.
Тестовое решение:
Введите 1 число1
Введите 1 число23
Введите 2 число44
Введите 3 число3
Введите 3 число32
Введите 4 число45
Введите 5 число56
Количество четных двухзначных = 3
procedure print(a: <em>integer</em>);
var
i: <em>integer</em>;
s: <em>string</em>;
begin
str(a, s);
for i := 1 to length(s) do
writeln(s[i]);
end;