Program abc;
var a,b,i: real;
begin
a:=10; // 10 км за день
b:=1; // счетчик дней
Repeat
a:=a+a*0.1; // +10% от пробега предыдущего
b:=b+1; // счетчик дней
Until a>20; //суммарный пробег за все дни превысит 20км
writeln ('Пробег превысил 20км. на день № ',b);
Repeat
a:=a+a*0.1; // +10% от пробега предыдущего
b:=b+1; // счетчик дней
Until a>100; //суммарный пробег за все дни превысит 100км
writeln ('Пробег превысил 100км. на день № ',b);
<span>end.</span>
Указывайте, пожалуйста, язык программирования.
Могу предоставить код на C++:
int main(){
for(int x = 0; x <=20; x+=2)
{
printf("%i",9*(x*x)+6*x);
}
}
На pascal всё гораздо муторней.
var x,i:integer;
begin
x := 0;
for i:= 1 to 11 do
begin
writeln(9*(x*x)+6*x);
x := x + 2;
end;
end.
Static int Change (int I) {
return (I> 0) ? I+1 : I;
}
var a,b:real;
begin
write("Vvedite chisla: ");
read(a,b);
write("Bolshee chislo: ");
if a>b then write(a) else write(b);
readln
end.