Ну из таблицы же ясно. в пятом действии мы из задуманного числа + некую сумму вычитаем задуманное число. т.е на этом этапе от нашего числа перестает что либо зависеть. это равнозначно тому что: загадайте число, отнимите от него задуманное число - у вас получилось 0. ну или загадайте число , прибавте 1, отнимите загаданное число. получилось 1.
function Max(a, b, c: integer): integer;
var
m: integer;
begin
if a > b then
m := a
else
m := b;
if c > m then
m := c;
Max := m;
end;
function Min(a, b, c: integer): integer;
var
m: integer;
begin
if a < b then
m := a
else
m := b;
if c < m then
m := c;
Min := m;
end;
procedure Swap(var a, b: integer);
var
t: integer;
begin
t := a;
a := b;
b := t;
end;
var
a, b, c, t: integer;
begin
Write('Введи через пробел три числа: ');
Read(a, b, c);
Writeln('Max = ', Max(a, b, c), ', min = ', Min(a, b, c));
if b > a then
Swap(a, b);
if c > b then
begin
Swap(b, c);
if b > a then
Swap(a, b);
end;
Writeln(a, ' ', b, ' ', c);
end.
R=int(input("radius "))
h=int(input("vysota "))
s=3.14*r*h
print(s)
Procedure TForm1.Button1Click(Sender: TObject);
var
i, k: integer;
s: string;
begin
k := 0;
i := 1;
while k <> 8 do
begin
if (i mod 7 = 0) then
begin
s := s + IntToStr(i) + #13;
Inc(k);
end;
Inc(i);
end;
ShowMessage(s);
end;