procedure get_num(var m: bignum; var n: integer); var i := 0; s: string; begin write('Введите число = '); readln(s); s := trim(s); n := 0; for i := length(s) downto 1 do if s[i] in ['0'..'9'] then begin n := n + 1; m[n] := strtoint(s[i]); end; end;
function more(a, b: bignum; n_a: integer): boolean; var i: integer; f := false; begin for i := n_a downto 1 do begin if a[i] > b[i] then f := true else if a[i] < b[i] then f := false; if a[i] <> b[i] then break; end; more := f; end;
procedure show(m: bignum; n: integer); var i: integer; begin write('Вывод '); for i := n downto 1 do write(m[i]); writeln(); end;
begin get_num(a, n_a); get_num(b, n_b);
while (n_a >= n_b) and more(a, b, n_a) do begin if (a[n_a] > b[n_b]) then k := n_a - n_b else if n_a > n_b then k := n_a - n_b - 1 else k := 0;
for i := 1 to n_b do begin a[i + k] := a[i + k] - b[i]; if a[i + k] < 0 then begin for j := i + k to n_a - 1 do begin if a[j] >= 0 then break; a[j] := a[j] + 10; a[j + 1] := a[j + 1] - 1; end end; end; if a[n_a] = 0 then n_a := n_a - 1; end;
bignum = array[1..100] of integer;
var
a, b: bignum;
i, j, k, n_a, n_b: integer;
procedure get_num(var m: bignum; var n: integer);
var
i := 0;
s: string;
begin
write('Введите число = ');
readln(s);
s := trim(s);
n := 0;
for i := length(s) downto 1 do
if s[i] in ['0'..'9'] then begin
n := n + 1;
m[n] := strtoint(s[i]);
end;
end;
function more(a, b: bignum; n_a: integer): boolean;
var
i: integer;
f := false;
begin
for i := n_a downto 1 do
begin
if a[i] > b[i] then f := true
else if a[i] < b[i] then f := false;
if a[i] <> b[i] then break;
end;
more := f;
end;
procedure show(m: bignum; n: integer);
var
i: integer;
begin
write('Вывод ');
for i := n downto 1 do
write(m[i]);
writeln();
end;
begin
get_num(a, n_a);
get_num(b, n_b);
while (n_a >= n_b) and more(a, b, n_a) do
begin
if (a[n_a] > b[n_b]) then k := n_a - n_b
else if n_a > n_b then k := n_a - n_b - 1
else k := 0;
for i := 1 to n_b do
begin
a[i + k] := a[i + k] - b[i];
if a[i + k] < 0 then begin
for j := i + k to n_a - 1 do
begin
if a[j] >= 0 then break;
a[j] := a[j] + 10;
a[j + 1] := a[j + 1] - 1;
end
end;
end;
if a[n_a] = 0 then n_a := n_a - 1;
end;
show(a, n_a);
end.
Сишарпик
string ArmanAge, IvanAge, RuslanAge;
Console.WriteLine("Введите возраст Армана."); ArmanAge = Console.ReadLine();
Console.WriteLine("Введите возраст Ивана."); IvanAge = Console.ReadLine();
Console.WriteLine("Введите возраст Руслана."); RuslanAge = Console.ReadLine();
if (byte.TryParse(ArmanAge, out byte ByteArmanAge) && ByteArmanAge < 115 &&
byte.TryParse(IvanAge, out byte ByteIvanAge) && ByteIvanAge < 115 &&
byte.TryParse(RuslanAge, out byte ByteRuslanAge) && ByteRuslanAge < 115)
{
byte MaxAge;
byte EqualAge;
if (ByteArmanAge > ByteIvanAge && ByteArmanAge > ByteRuslanAge)
{
MaxAge = ByteArmanAge;
Console.WriteLine($"Самый старший Арман, его возраст {MaxAge}.");
}
else if (ByteIvanAge > ByteArmanAge && ByteIvanAge > ByteRuslanAge)
{
MaxAge = ByteIvanAge;
Console.WriteLine($"Самый старший Иван, его возраст {MaxAge}.");
}
else if (ByteRuslanAge > ByteArmanAge && ByteRuslanAge > ByteIvanAge)
{
MaxAge = ByteRuslanAge;
Console.WriteLine($"Самый старший Руслан, его возраст {MaxAge}.");
}
else
{
EqualAge = ByteRuslanAge; // к примеру его возраст.
Console.WriteLine($"У всех парней одинаковый возраст, им по {EqualAge} лет.");
}
}
else
{
Console.WriteLine("Введите корректные значения.");
Console.ReadLine();
return;
}
Console.ReadLine();