Ответ № 1 - 32.
<span>a:=a*a*b; а=4*4*2=16*2=32
</span>
Uses crt;
var input, betw:integer;
begin
readln(input);
betw := input;
betw := betw div 10;
betw := betw div 10;
betw := betw div 10;
writeln('Тысяч = ', betw);
betw := input;
betw := betw div 10;
betw := betw div 10;
betw := betw mod 10;
writeln('Сотен = ', betw);
betw := input;
betw := betw div 10;
betw := betw mod 10;
writeln('Десятков = ', betw);
betw := input;
betw := betw mod 10;
writeln('Единиц = ', betw); end.
<em>1) из 5 л наполняем 3л - в 5л отстается 2л</em>
<em>2) опусташаем 3л банку - переливаем из 5литровой 2л в 3х литровую банку</em>
<em>3) 5л банка оказалась пустрой, а в 3л банке 2л</em>
<em>4) наполняем 5л банку</em>
<em>5) заливаем недостающий литр в 3х литровую банку</em>
<em>всё, в 5 литровой банке остается 4 литра.</em>
<em>Совет: нарисуй эту схему на тетрадном листке в клетку, столбики 3л - 3 клетки, 5л- 5клеток, и "переливай" :)</em>
Double A[3][4];
int i,j;
double min;
for(i = 0; i < 3; i++)
for(j=0;j<4;j++)
cin>>A[i][j];
min=A[0][0];
for(i = 0; i < 3; i++)
for(j=0;j<4;j++)
if(A[i][j] < min) {min=A[i][j];}
cout<<min;
Не забывай про лучший ответ.
var s,n,i:integer;
begin cls;
s:=0;
readln(n);
for i:=1 to n do
s:=s+i;
writeln(s);
end;
end.