Var
a,b,c,max:integer;
begin
writeln('Введите возраст призеров:');
readln(a,b,c);
if (a < b) and (a < c) then
begin
max := a;
writeln('Самый младший - первый призер, ему ',max,' лет.');
end;
if (b < a) and (b < c) then
begin
max := b;
writeln('Самый младший - второй призер, ему ',max,' лет.');
end;
if (c < a) and (c < b) then
begin
max := c;
writeln('Самый младший - третий призер, ему ',max,' лет.');
end;
end.
a = 600
b = 400
i = 8
I = a * b * i
I = 600 * 400 * 8 = 1920000 бит
Теперь i = 16
Нам нужно найти (a * b )
I = (a * b ) * i
(a * b) = | / i
(a * b ) = 1920000 / 16
( a * b ) = 120000
a = 300
b = 400
Ответ: 300x400
Program n1;
var n: real;
begin
write('введите число: ');
readln(n);
if n>0 then writeln(n*n) else writeln(n*n*n);
end.
Л - 2
и - 3
с - 4
а - 5
пробел - 6
с - 7
ъ - 8
е - 9
л - 10
а - 11
пробел - 12
К - 14
о - 15
л - 16
о - 17
б - 18
к - 19
а - 20
(если с точкой - 21)