Program plov ;
var day : integer ;
var km , sum : real ;
begin
day := 1 ;
km := 3 ;
sum := km ;
while ( sum <= 30 ) do begin
day := day + 1 ;
km := km * 1.1 ;
sum := sum + km ;
end ;
writeln ( 'day=' , day ) ;
<span>end.</span>
1150
M-1000
C-100
L-50
Вот так вот думаю получается легкий вопрос
<span>Program al;
var a: array[1..100] of integer;
buf:integer;
i,n,min:integer;
begin
writeln('n=');
readln(n);
writeln('vvedite massiv=');
for i := 1 to n do
readln(a[i]);
min:=a[1];
for i:=1 to n do
if a[i]<min then min :=a[i];
writeln('mn=', min);
readln;
end.</span>
===== PascalABC.NET =====
begin
var (a, b) := ReadInteger2;
Swap(a,b);
Print(a, b)
end.
Ответ:
ABCE=8
Объяснение:
ACDE=25
ACE=18
ABCDE=15
ABCE=8
Остальные пути не проходят через C